home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / chibacity / scoresso.cpt / Scores Source Code / Scores_Data4001.txt < prev    next >
Encoding:
Text File  |  1988-11-15  |  50.2 KB  |  1,983 lines  |  [TEXT/EDIT]
  1.  
  2. ;Seg 1 = DATA ID# -4001 proc 1 of 46 (local)
  3.  
  4. 0000: L0000    ORI.B    #$01,D0
  5. 0004: L0004    ORI.B    #$3C,D0    ;'<'
  6. 0008:     ORI.B    #$F0,D1
  7. 000C:     JSR    locProc2
  8. 0010:     MOVEA.L    A5,A0
  9. 0012:     ADDA.W    #$0020,A0
  10. 0016:     LEA    L0004,A1
  11. 001A:     MOVE.L    (A1)+,(A0)+
  12. 001C:     MOVE.L    (A1),(A0)
  13. 001E:     MOVEA.L    A5,A0
  14. 0020:     ADDA.W    #$0022,A0
  15. 0024:     JMP    (A0)
  16. 0026:     .WORD    $4E75,$4EBA,$8F4,$4EBA    ;[NuN...N.]
  17. 002E:     .WORD    $BF6,$4EBA,$DD8,$4EBA    ;[..N...N.]
  18. 0036:     .WORD    $11D0,$4EBA,$1B36    ;[..N..6..]
  19.  
  20. ;Seg 1 = DATA ID# -4001 proc 2 of 46 (local)
  21.  
  22. 0000: L003C    LINK    A6,#$FFFC
  23. 0004:     MOVEM.L    D2-D6/A2-A4,-(A7)
  24. 0008:     JSR    locProc9
  25. 000C:     MOVE.W    D0,$FFFE(A6)
  26. 0010:     LEA    L091E,A2
  27. 0014:     LEA    L0C22,A3
  28. 0018:     LEA    L0C24,A4
  29. 001C:     MOVE.L    A4,D2
  30. 001E:     LEA    L0E04,A4
  31. 0022:     MOVE.L    A4,D3
  32. 0024:     LEA    L0E0A,A4
  33. 0028:     MOVE.L    A4,D4
  34. 002A:     LEA    L1206,A4
  35. 002E:     MOVE.L    A4,D5
  36. 0030:     LEA    L1B70,A4
  37. 0034:     MOVE.L    A4,D6
  38. 0036:     JSR    locProc8
  39. 003A:     TST.L    D0
  40. 003C:     BNE.S    L00CA
  41. 003E:     MOVE.L    D3,-(A7)
  42. 0040:     MOVE.L    D2,-(A7)
  43. 0042:     MOVE.L    A3,-(A7)
  44. 0044:     MOVE.L    A2,-(A7)
  45. 0046:     MOVE.L    D6,-(A7)
  46. 0048:     MOVE.L    D5,-(A7)
  47. 004A:     MOVE.L    D4,-(A7)
  48. 004C:     JSR    locProc3
  49. 0050:     MOVE.L    D6,-(A7)
  50. 0052:     MOVE.L    D5,-(A7)
  51. 0054:     MOVE.L    D4,-(A7)
  52. 0056:     JSR    locProc4
  53. 005A:     MOVE.L    D3,-(A7)
  54. 005C:     MOVE.L    D2,-(A7)
  55. 005E:     MOVE.L    A3,-(A7)
  56. 0060:     MOVE.L    A2,-(A7)
  57. 0062:     JSR    locProc5
  58. 0066:     MOVE.L    D3,-(A7)
  59. 0068:     MOVE.L    D2,-(A7)
  60. 006A:     MOVE.L    A3,-(A7)
  61. 006C:     MOVE.L    A2,-(A7)
  62. 006E:     JSR    locProc6
  63. 0072:     MOVE.L    D6,-(A7)
  64. 0074:     MOVE.L    D5,-(A7)
  65. 0076:     MOVE.L    D4,-(A7)
  66. 0078:     JSR    locProc7
  67. 007C:     MOVE.W    $FFFE(A6),D0
  68. 0080:     EXT.L    D0
  69. 0082:     MOVE.L    D0,-(A7)
  70. 0084:     CLR.L    -(A7)
  71. 0086:     JSR    locProc26
  72. 008A:     LEA    $005C(A7),A7
  73. 008E: L00CA    MOVEM.L    $FFDC(A6),D2-D6/A2-A4
  74. 0094:     UNLK    A6
  75. 0096:     RTS    
  76.  
  77. ;Seg 1 = DATA ID# -4001 proc 3 of 46 (local)
  78.  
  79. 0000: L00D4    LINK    A6,#$FFEC
  80. 0004:     MOVEM.L    D2-D6,-(A7)
  81. 0008:     MOVE.L    $0008(A6),D3
  82. 000C:     MOVE.L    $000C(A6),D4
  83. 0010:     MOVE.L    $0010(A6),D5
  84. 0014:     SUBQ.L    #2,A7
  85. 0016:     _CurResFile    
  86. 0018:     MOVE.W    (A7)+,D0
  87. 001A:     MOVE.W    D0,D6
  88. 001C:     CLR.W    -(A7)
  89. 001E:     _UseResFile    
  90. 0020:     CLR.L    -(A7)
  91. 0022:     MOVE.L    $0018(A6),-(A7)
  92. 0026:     MOVE.L    $0014(A6),-(A7)
  93. 002A:     JSR    locProc10
  94. 002E:     CLR.L    -(A7)
  95. 0030:     MOVE.L    $0020(A6),-(A7)
  96. 0034:     MOVE.L    $001C(A6),-(A7)
  97. 0038:     JSR    locProc11
  98. 003C:     CLR.L    -(A7)
  99. 003E:     MOVE.L    D5,-(A7)
  100. 0040:     MOVE.L    D4,-(A7)
  101. 0042:     MOVE.L    D3,-(A7)
  102. 0044:     JSR    locProc12
  103. 0048:     CLR.W    -(A7)
  104. 004A:     _UpdateResFile    
  105. 004C:     MOVE.W    D6,-(A7)
  106. 004E:     _UseResFile    
  107. 0050:     LEA    $0028(A7),A7
  108. 0054:     MOVEM.L    $FFD8(A6),D2-D6
  109. 005A:     UNLK    A6
  110. 005C:     RTS    
  111.  
  112. ;Seg 1 = DATA ID# -4001 proc 4 of 46 (local)
  113.  
  114. 0000: L0132    LINK    A6,#$FFD8
  115. 0004:     MOVEM.L    D2-D6,-(A7)
  116. 0008:     MOVE.L    $0008(A6),D3
  117. 000C:     MOVE.L    $000C(A6),D4
  118. 0010:     MOVE.L    $0010(A6),D5
  119. 0014:     JSR    locProc9
  120. 0018:     MOVE.W    D0,$FFFE(A6)
  121. 001C:     SUBQ.L    #2,A7
  122. 001E:     _CurResFile    
  123. 0020:     MOVE.W    (A7)+,D0
  124. 0022:     MOVE.W    D0,$FFFC(A6)
  125. 0026:     MOVE.L    #$53636F72,$FFE8(A6)    ;'Scor'
  126. 002E:     MOVE.L    #$65730000,$FFEC(A6)
  127. 0036:     MOVE.W    $FFFE(A6),D0
  128. 003A:     EXT.L    D0
  129. 003C:     MOVE.L    D0,-(A7)
  130. 003E:     CLR.L    -(A7)
  131. 0040:     JSR    locProc25
  132. 0044:     PEA    $FFE8(A6)
  133. 0048:     JSR    locProc43
  134. 004C:     MOVE.W    D0,D6
  135. 004E:     LEA    $000C(A7),A7
  136. 0052:     BGE.S    L019A
  137. 0054:     PEA    $FFE8(A6)
  138. 0058:     JSR    locProc42
  139. 005C:     PEA    $FFE8(A6)
  140. 0060:     JSR    locProc43
  141. 0064:     MOVE.W    D0,D6
  142. 0066:     ADDQ.L    #8,A7
  143. 0068: L019A    TST.W    D6
  144. 006A:     BLE.S    L01FC
  145. 006C:     MOVE.W    D6,-(A7)
  146. 006E:     _UseResFile    
  147. 0070:     MOVE.W    D6,D0
  148. 0072:     EXT.L    D0
  149. 0074:     MOVE.L    D0,-(A7)
  150. 0076:     MOVE.L    D5,-(A7)
  151. 0078:     MOVE.L    D4,-(A7)
  152. 007A:     MOVE.L    D3,-(A7)
  153. 007C:     JSR    locProc12
  154. 0080:     MOVE.W    D6,-(A7)
  155. 0082:     _UpdateResFile    
  156. 0084:     MOVE.W    D6,-(A7)
  157. 0086:     _CloseResFile    
  158. 0088:     PEA    $FFD8(A6)
  159. 008C:     MOVE.W    $FFFE(A6),D0
  160. 0090:     EXT.L    D0
  161. 0092:     MOVE.L    D0,-(A7)
  162. 0094:     PEA    $FFE8(A6)
  163. 0098:     JSR    locProc28
  164. 009C:     MOVE.L    #$52444556,$FFD8(A6)    ;'RDEV'
  165. 00A4:     MOVE.L    #$5A535953,$FFDC(A6)    ;'ZSYS'
  166. 00AC:     ORI.W    #$4000,$FFE0(A6)
  167. 00B2:     PEA    $FFD8(A6)
  168. 00B6:     MOVE.W    $FFFE(A6),D0
  169. 00BA:     EXT.L    D0
  170. 00BC:     MOVE.L    D0,-(A7)
  171. 00BE:     PEA    $FFE8(A6)
  172. 00C2:     JSR    locProc29
  173. 00C6:     LEA    $0028(A7),A7
  174. 00CA: L01FC    MOVE.W    $FFFC(A6),-(A7)
  175. 00CE:     _UseResFile    
  176. 00D0:     MOVEM.L    $FFC4(A6),D2-D6
  177. 00D6:     UNLK    A6
  178. 00D8:     RTS    
  179.  
  180. ;Seg 1 = DATA ID# -4001 proc 5 of 46 (local)
  181.  
  182. 0000: L020C    LINK    A6,#$FFD8
  183. 0004:     MOVEM.L    D2-D6,-(A7)
  184. 0008:     MOVE.L    $0008(A6),D3
  185. 000C:     MOVE.L    $000C(A6),D4
  186. 0010:     MOVE.L    $0010(A6),D0
  187. 0014:     JSR    locProc9
  188. 0018:     MOVE.W    D0,D6
  189. 001A:     SUBQ.L    #2,A7
  190. 001C:     _CurResFile    
  191. 001E:     MOVE.W    (A7)+,D0
  192. 0020:     MOVE.W    D0,$FFFE(A6)
  193. 0024:     MOVE.L    #$4E6F7465,$FFEA(A6)    ;'Note'
  194. 002C:     MOVE.L    #$20506164,$FFEE(A6)    ;' Pad'
  195. 0034:     MOVE.L    #$2046696C,$FFF2(A6)    ;' Fil'
  196. 003C:     MOVE.L    #$65000000,$FFF6(A6)
  197. 0044:     MOVE.W    D6,D0
  198. 0046:     EXT.L    D0
  199. 0048:     MOVE.L    D0,-(A7)
  200. 004A:     CLR.L    -(A7)
  201. 004C:     JSR    locProc25
  202. 0050:     PEA    $FFEA(A6)
  203. 0054:     JSR    locProc43
  204. 0058:     MOVE.W    D0,D5
  205. 005A:     LEA    $000C(A7),A7
  206. 005E:     BGE.S    L0280
  207. 0060:     PEA    $FFEA(A6)
  208. 0064:     JSR    locProc42
  209. 0068:     PEA    $FFEA(A6)
  210. 006C:     JSR    locProc43
  211. 0070:     MOVE.W    D0,D5
  212. 0072:     ADDQ.L    #8,A7
  213. 0074: L0280    TST.W    D5
  214. 0076:     BLE.S    L02D6
  215. 0078:     MOVE.W    D5,-(A7)
  216. 007A:     _UseResFile    
  217. 007C:     MOVE.W    D5,D0
  218. 007E:     EXT.L    D0
  219. 0080:     MOVE.L    D0,-(A7)
  220. 0082:     MOVE.L    D4,-(A7)
  221. 0084:     MOVE.L    D3,-(A7)
  222. 0086:     JSR    locProc10
  223. 008A:     MOVE.W    D5,-(A7)
  224. 008C:     _UpdateResFile    
  225. 008E:     MOVE.W    D5,-(A7)
  226. 0090:     _CloseResFile    
  227. 0092:     PEA    $FFDA(A6)
  228. 0096:     MOVE.W    D6,D0
  229. 0098:     EXT.L    D0
  230. 009A:     MOVE.L    D0,-(A7)
  231. 009C:     PEA    $FFEA(A6)
  232. 00A0:     JSR    locProc28
  233. 00A4:     MOVE.L    #$494E4954,$FFDA(A6)    ;'INIT'
  234. 00AC:     MOVE.L    #$5A535953,$FFDE(A6)    ;'ZSYS'
  235. 00B4:     PEA    $FFDA(A6)
  236. 00B8:     MOVE.W    D6,D0
  237. 00BA:     EXT.L    D0
  238. 00BC:     MOVE.L    D0,-(A7)
  239. 00BE:     PEA    $FFEA(A6)
  240. 00C2:     JSR    locProc29
  241. 00C6:     LEA    $0024(A7),A7
  242. 00CA: L02D6    MOVE.W    $FFFE(A6),-(A7)
  243. 00CE:     _UseResFile    
  244. 00D0:     MOVEM.L    $FFC4(A6),D2-D6
  245. 00D6:     UNLK    A6
  246. 00D8:     RTS    
  247.  
  248. ;Seg 1 = DATA ID# -4001 proc 6 of 46 (local)
  249.  
  250. 0000: L02E6    LINK    A6,#$FFD8
  251. 0004:     MOVEM.L    D2-D6,-(A7)
  252. 0008:     MOVE.L    $0008(A6),D3
  253. 000C:     MOVE.L    $000C(A6),D4
  254. 0010:     MOVE.L    $0010(A6),D5
  255. 0014:     JSR    locProc9
  256. 0018:     MOVE.W    D0,$FFFE(A6)
  257. 001C:     SUBQ.L    #2,A7
  258. 001E:     _CurResFile    
  259. 0020:     MOVE.W    (A7)+,D0
  260. 0022:     MOVE.W    D0,$FFFC(A6)
  261. 0026:     MOVE.L    #$53637261,$FFE8(A6)    ;'Scra'
  262. 002E:     MOVE.L    #$70626F6F,$FFEC(A6)    ;'pboo'
  263. 0036:     MOVE.L    #$6B204669,$FFF0(A6)    ;'k Fi'
  264. 003E:     MOVE.L    #$6C650000,$FFF4(A6)
  265. 0046:     MOVE.W    $FFFE(A6),D0
  266. 004A:     EXT.L    D0
  267. 004C:     MOVE.L    D0,-(A7)
  268. 004E:     CLR.L    -(A7)
  269. 0050:     JSR    locProc25
  270. 0054:     PEA    $FFE8(A6)
  271. 0058:     JSR    locProc43
  272. 005C:     MOVE.W    D0,D6
  273. 005E:     LEA    $000C(A7),A7
  274. 0062:     BGE.S    L035E
  275. 0064:     PEA    $FFE8(A6)
  276. 0068:     JSR    locProc42
  277. 006C:     PEA    $FFE8(A6)
  278. 0070:     JSR    locProc43
  279. 0074:     MOVE.W    D0,D6
  280. 0076:     ADDQ.L    #8,A7
  281. 0078: L035E    TST.W    D6
  282. 007A:     BLE.S    L03C8
  283. 007C:     MOVE.W    D6,-(A7)
  284. 007E:     _UseResFile    
  285. 0080:     MOVE.W    D6,D0
  286. 0082:     EXT.L    D0
  287. 0084:     MOVE.L    D0,-(A7)
  288. 0086:     MOVE.L    D4,-(A7)
  289. 0088:     MOVE.L    D3,-(A7)
  290. 008A:     JSR    locProc10
  291. 008E:     MOVE.W    D6,D0
  292. 0090:     EXT.L    D0
  293. 0092:     MOVE.L    D0,-(A7)
  294. 0094:     MOVE.L    $0014(A6),-(A7)
  295. 0098:     MOVE.L    D5,-(A7)
  296. 009A:     JSR    locProc11
  297. 009E:     MOVE.W    D6,-(A7)
  298. 00A0:     _UpdateResFile    
  299. 00A2:     MOVE.W    D6,-(A7)
  300. 00A4:     _CloseResFile    
  301. 00A6:     PEA    $FFD8(A6)
  302. 00AA:     MOVE.W    $FFFE(A6),D0
  303. 00AE:     EXT.L    D0
  304. 00B0:     MOVE.L    D0,-(A7)
  305. 00B2:     PEA    $FFE8(A6)
  306. 00B6:     JSR    locProc28
  307. 00BA:     MOVE.L    #$52444556,$FFD8(A6)    ;'RDEV'
  308. 00C2:     MOVE.L    #$5A535953,$FFDC(A6)    ;'ZSYS'
  309. 00CA:     PEA    $FFD8(A6)
  310. 00CE:     MOVE.W    $FFFE(A6),D0
  311. 00D2:     EXT.L    D0
  312. 00D4:     MOVE.L    D0,-(A7)
  313. 00D6:     PEA    $FFE8(A6)
  314. 00DA:     JSR    locProc29
  315. 00DE:     LEA    $0030(A7),A7
  316. 00E2: L03C8    MOVE.W    $FFFC(A6),-(A7)
  317. 00E6:     _UseResFile    
  318. 00E8:     MOVEM.L    $FFC4(A6),D2-D6
  319. 00EE:     UNLK    A6
  320. 00F0:     RTS    
  321.  
  322. ;Seg 1 = DATA ID# -4001 proc 7 of 46 (local)
  323.  
  324. 0000: L03D8    LINK    A6,#$FFD8
  325. 0004:     MOVEM.L    D2-D6,-(A7)
  326. 0008:     MOVE.L    $0008(A6),D3
  327. 000C:     MOVE.L    $000C(A6),D4
  328. 0010:     MOVE.L    $0010(A6),D5
  329. 0014:     JSR    locProc9
  330. 0018:     MOVE.W    D0,$FFFE(A6)
  331. 001C:     SUBQ.L    #2,A7
  332. 001E:     _CurResFile    
  333. 0020:     MOVE.W    (A7)+,D0
  334. 0022:     MOVE.W    D0,$FFFC(A6)
  335. 0026:     MOVE.L    #$4465736B,$FFE8(A6)    ;'Desk'
  336. 002E:     MOVE.L    #$746F7020,$FFEC(A6)    ;'top '
  337. 0036:     CLR.L    $FFF0(A6)
  338. 003A:     MOVE.W    $FFFE(A6),D0
  339. 003E:     EXT.L    D0
  340. 0040:     MOVE.L    D0,-(A7)
  341. 0042:     CLR.L    -(A7)
  342. 0044:     JSR    locProc25
  343. 0048:     PEA    $FFE8(A6)
  344. 004C:     JSR    locProc43
  345. 0050:     MOVE.W    D0,D6
  346. 0052:     LEA    $000C(A7),A7
  347. 0056:     BGE.S    L0444
  348. 0058:     PEA    $FFE8(A6)
  349. 005C:     JSR    locProc42
  350. 0060:     PEA    $FFE8(A6)
  351. 0064:     JSR    locProc43
  352. 0068:     MOVE.W    D0,D6
  353. 006A:     ADDQ.L    #8,A7
  354. 006C: L0444    TST.W    D6
  355. 006E:     BLE.S    L04A6
  356. 0070:     MOVE.W    D6,-(A7)
  357. 0072:     _UseResFile    
  358. 0074:     MOVE.W    D6,D0
  359. 0076:     EXT.L    D0
  360. 0078:     MOVE.L    D0,-(A7)
  361. 007A:     MOVE.L    D5,-(A7)
  362. 007C:     MOVE.L    D4,-(A7)
  363. 007E:     MOVE.L    D3,-(A7)
  364. 0080:     JSR    locProc12
  365. 0084:     MOVE.W    D6,-(A7)
  366. 0086:     _UpdateResFile    
  367. 0088:     MOVE.W    D6,-(A7)
  368. 008A:     _CloseResFile    
  369. 008C:     PEA    $FFD8(A6)
  370. 0090:     MOVE.W    $FFFE(A6),D0
  371. 0094:     EXT.L    D0
  372. 0096:     MOVE.L    D0,-(A7)
  373. 0098:     PEA    $FFE8(A6)
  374. 009C:     JSR    locProc28
  375. 00A0:     MOVE.L    #$494E4954,$FFD8(A6)    ;'INIT'
  376. 00A8:     MOVE.L    #$464E4452,$FFDC(A6)    ;'FNDR'
  377. 00B0:     ORI.W    #$4000,$FFE0(A6)
  378. 00B6:     PEA    $FFD8(A6)
  379. 00BA:     MOVE.W    $FFFE(A6),D0
  380. 00BE:     EXT.L    D0
  381. 00C0:     MOVE.L    D0,-(A7)
  382. 00C2:     PEA    $FFE8(A6)
  383. 00C6:     JSR    locProc29
  384. 00CA:     LEA    $0028(A7),A7
  385. 00CE: L04A6    MOVE.W    $FFFC(A6),-(A7)
  386. 00D2:     _UseResFile    
  387. 00D4:     MOVEM.L    $FFC4(A6),D2-D6
  388. 00DA:     UNLK    A6
  389. 00DC:     RTS    
  390.  
  391. ;Seg 1 = DATA ID# -4001 proc 8 of 46 (local)
  392.  
  393. 0000: L04B6    MOVEA.L    $011C,A0
  394. 0004:     LEA    $00B0(A0),A0
  395. 0008:     TST.L    (A0)
  396. 000A:     BNE.S    L04C6
  397. 000C:     MOVEQ    $00,D0
  398. 000E:     BRA.S    L04C8
  399. 0010: L04C6    MOVEQ    $01,D0
  400. 0012: L04C8    RTS    
  401.  
  402. ;Seg 1 = DATA ID# -4001 proc 9 of 46 (local)
  403.  
  404. 0000: L04CA    LINK    A6,#$FF50
  405. 0004:     MOVE.L    D2,-(A7)
  406. 0006:     CLR.W    D2
  407. 0008:     LEA    $FF84(A6),A0
  408. 000C:     MOVEQ    $00,D1
  409. 000E:     BRA.S    L04DE
  410. 0010: L04DA    CLR.B    (A0)+
  411. 0012:     ADDQ.L    #1,D1
  412. 0014: L04DE    MOVEQ    $7A,D0
  413. 0016:     CMP.L    D1,D0
  414. 0018:     BGT    L04DA
  415. 001C:     PEA    $FFFE(A6)
  416. 0020:     MOVE.W    $0A58,D0
  417. 0024:     EXT.L    D0
  418. 0026:     MOVE.L    D0,-(A7)
  419. 0028:     JSR    locProc27
  420. 002C:     MOVE.W    D0,D0
  421. 002E:     ADDQ.L    #8,A7
  422. 0030:     BNE.S    L0546
  423. 0032:     CLR.L    $FF96(A6)
  424. 0036:     MOVE.W    $FFFE(A6),$FF9A(A6)
  425. 003C:     CLR.W    $FFA0(A6)
  426. 0040:     CLR.L    -(A7)
  427. 0042:     PEA    $FF84(A6)
  428. 0046:     JSR    locProc34
  429. 004A:     MOVE.W    D0,D0
  430. 004C:     ADDQ.L    #8,A7
  431. 004E:     BNE.S    L0546
  432. 0050:     CLR.L    $FF62(A6)
  433. 0054:     MOVE.W    $FFFE(A6),$FF66(A6)
  434. 005A:     MOVE.L    $FFDE(A6),$FF80(A6)
  435. 0060:     MOVE.L    #$4552494B,$FF6C(A6)    ;'ERIK'
  436. 0068:     CLR.L    -(A7)
  437. 006A:     PEA    $FF50(A6)
  438. 006E:     JSR    locProc31
  439. 0072:     MOVE.W    D0,D0
  440. 0074:     ADDQ.L    #8,A7
  441. 0076:     BNE.S    L0546
  442. 0078:     MOVE.W    $FF66(A6),D2
  443. 007C: L0546    MOVE.W    D2,D0
  444. 007E:     EXT.L    D0
  445. 0080:     MOVE.L    $FF4C(A6),D2
  446. 0084:     UNLK    A6
  447. 0086:     RTS    
  448.  
  449. ;Seg 1 = DATA ID# -4001 proc 10 of 46 (local)
  450.  
  451. 0000: L0552    LINK    A6,#$FFEC
  452. 0004:     MOVEM.L    D2-D6/A2,-(A7)
  453. 0008:     MOVE.L    $0008(A6),D4
  454. 000C:     MOVE.L    $000C(A6),D0
  455. 0010:     MOVE.W    $0012(A6),D3
  456. 0014:     SUB.L    D4,D0
  457. 0016:     MOVE.L    D0,D5
  458. 0018:     SUBQ.L    #4,A7
  459. 001A:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  460. 0020:     MOVE.W    #$0006,-(A7)
  461. 0024:     _GetResource    
  462. 0026:     MOVE.L    (A7)+,D0
  463. 0028:     MOVEA.L    D0,A2
  464. 002A:     MOVE.L    A2,D6
  465. 002C:     BEQ    L05A0
  466. 0030:     SUBQ.L    #2,A7
  467. 0032:     MOVE.L    A2,-(A7)
  468. 0034:     _HomeResFile    
  469. 0036:     MOVE.W    (A7)+,D0
  470. 0038:     CMP.W    D0,D3
  471. 003A:     BNE    L05A0
  472. 003E:     MOVE.L    A2,-(A7)
  473. 0040:     _LoadResource    
  474. 0042:     MOVE.L    D5,-(A7)
  475. 0044:     MOVE.L    A2,-(A7)
  476. 0046:     JSR    locProc37
  477. 004A:     ADDQ.L    #8,A7
  478. 004C:     BRA.S    L05E8
  479. 004E: L05A0    MOVE.L    D5,-(A7)
  480. 0050:     JSR    locProc35
  481. 0054:     MOVEA.L    D0,A2
  482. 0056:     CLR.L    $FFEC(A6)
  483. 005A:     PEA    $FFEC(A6)
  484. 005E:     PEA    $0006
  485. 0062:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  486. 0068:     MOVE.L    A2,-(A7)
  487. 006A:     JSR    locProc44
  488. 006E:     SUBQ.L    #2,A7
  489. 0070:     _ResError    
  490. 0072:     MOVE.W    (A7)+,D0
  491. 0074:     EXT.L    D0
  492. 0076:     MOVE.W    D0,D0
  493. 0078:     LEA    $0014(A7),A7
  494. 007C:     BEQ.S    L05E8
  495. 007E:     PEA    $FFEC(A6)
  496. 0082:     PEA    $0006
  497. 0086:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  498. 008C:     MOVE.L    A2,-(A7)
  499. 008E:     JSR    locProc44
  500. 0092:     LEA    $0010(A7),A7
  501. 0096: L05E8    MOVE.L    A2,-(A7)
  502. 0098:     JSR    locProc39
  503. 009C:     MOVE.L    D5,-(A7)
  504. 009E:     MOVE.L    (A2),-(A7)
  505. 00A0:     MOVE.L    D4,-(A7)
  506. 00A2:     JSR    locProc41
  507. 00A6:     MOVEA.L    (A2),A0
  508. 00A8:     ADDQ.L    #2,A0
  509. 00AA:     MOVE.L    $020C,(A0)
  510. 00AE:     MOVE.L    A2,-(A7)
  511. 00B0:     _ChangedResource    
  512. 00B2:     MOVE.L    A2,-(A7)
  513. 00B4:     _WriteResource    
  514. 00B6:     MOVE.L    A2,-(A7)
  515. 00B8:     JSR    locProc40
  516. 00BC:     MOVE.L    A2,-(A7)
  517. 00BE:     _ReleaseResource    
  518. 00C0:     LEA    $0014(A7),A7
  519. 00C4:     MOVEM.L    $FFD4(A6),D2-D6/A2
  520. 00CA:     UNLK    A6
  521. 00CC:     RTS    
  522.  
  523. ;Seg 1 = DATA ID# -4001 proc 11 of 46 (local)
  524.  
  525. 0000: L0620    LINK    A6,#$FFEC
  526. 0004:     MOVEM.L    D2-D6/A2,-(A7)
  527. 0008:     MOVE.L    $0008(A6),D4
  528. 000C:     MOVE.L    $000C(A6),D0
  529. 0010:     MOVE.W    $0012(A6),D3
  530. 0014:     SUB.L    D4,D0
  531. 0016:     MOVE.L    D0,D5
  532. 0018:     SUBQ.L    #4,A7
  533. 001A:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  534. 0020:     MOVE.W    #$0011,-(A7)
  535. 0024:     _GetResource    
  536. 0026:     MOVE.L    (A7)+,D0
  537. 0028:     MOVEA.L    D0,A2
  538. 002A:     MOVE.L    A2,D6
  539. 002C:     BEQ    L066E
  540. 0030:     SUBQ.L    #2,A7
  541. 0032:     MOVE.L    A2,-(A7)
  542. 0034:     _HomeResFile    
  543. 0036:     MOVE.W    (A7)+,D0
  544. 0038:     CMP.W    D0,D3
  545. 003A:     BNE    L066E
  546. 003E:     MOVE.L    A2,-(A7)
  547. 0040:     _LoadResource    
  548. 0042:     MOVE.L    D5,-(A7)
  549. 0044:     MOVE.L    A2,-(A7)
  550. 0046:     JSR    locProc37
  551. 004A:     ADDQ.L    #8,A7
  552. 004C:     BRA.S    L06B6
  553. 004E: L066E    MOVE.L    D5,-(A7)
  554. 0050:     JSR    locProc35
  555. 0054:     MOVEA.L    D0,A2
  556. 0056:     CLR.L    $FFEC(A6)
  557. 005A:     PEA    $FFEC(A6)
  558. 005E:     PEA    $0011
  559. 0062:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  560. 0068:     MOVE.L    A2,-(A7)
  561. 006A:     JSR    locProc44
  562. 006E:     SUBQ.L    #2,A7
  563. 0070:     _ResError    
  564. 0072:     MOVE.W    (A7)+,D0
  565. 0074:     EXT.L    D0
  566. 0076:     MOVE.W    D0,D0
  567. 0078:     LEA    $0014(A7),A7
  568. 007C:     BEQ.S    L06B6
  569. 007E:     PEA    $FFEC(A6)
  570. 0082:     PEA    $0011
  571. 0086:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  572. 008C:     MOVE.L    A2,-(A7)
  573. 008E:     JSR    locProc44
  574. 0092:     LEA    $0010(A7),A7
  575. 0096: L06B6    MOVE.L    A2,-(A7)
  576. 0098:     JSR    locProc39
  577. 009C:     MOVE.L    D5,-(A7)
  578. 009E:     MOVE.L    (A2),-(A7)
  579. 00A0:     MOVE.L    D4,-(A7)
  580. 00A2:     JSR    locProc41
  581. 00A6:     MOVEA.L    (A2),A0
  582. 00A8:     ADDQ.L    #2,A0
  583. 00AA:     MOVE.L    $020C,(A0)
  584. 00AE:     MOVE.L    A2,-(A7)
  585. 00B0:     _ChangedResource    
  586. 00B2:     MOVE.L    A2,-(A7)
  587. 00B4:     _WriteResource    
  588. 00B6:     MOVE.L    A2,-(A7)
  589. 00B8:     JSR    locProc40
  590. 00BC:     MOVE.L    A2,-(A7)
  591. 00BE:     _ReleaseResource    
  592. 00C0:     LEA    $0014(A7),A7
  593. 00C4:     MOVEM.L    $FFD4(A6),D2-D6/A2
  594. 00CA:     UNLK    A6
  595. 00CC:     RTS    
  596.  
  597. ;Seg 1 = DATA ID# -4001 proc 12 of 46 (local)
  598.  
  599. 0000: L06EE    LINK    A6,#$FFEC
  600. 0004:     MOVEM.L    D2-D7/A2-A4,-(A7)
  601. 0008:     MOVE.L    $0008(A6),D4
  602. 000C:     MOVE.L    $000C(A6),D3
  603. 0010:     MOVE.L    $0010(A6),D5
  604. 0014:     MOVE.L    D3,D0
  605. 0016:     SUB.L    D4,D0
  606. 0018:     MOVE.L    D0,D6
  607. 001A:     SUBQ.L    #4,A7
  608. 001C:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  609. 0022:     MOVE.W    #$000A,-(A7)
  610. 0026:     _GetResource    
  611. 0028:     MOVE.L    (A7)+,D0
  612. 002A:     MOVEA.L    D0,A2
  613. 002C:     MOVE.L    A2,D7
  614. 002E:     BEQ    L0740
  615. 0032:     SUBQ.L    #2,A7
  616. 0034:     MOVE.L    A2,-(A7)
  617. 0036:     _HomeResFile    
  618. 0038:     MOVE.W    (A7)+,D0
  619. 003A:     CMP.W    $0016(A6),D0
  620. 003E:     BNE    L0740
  621. 0042:     MOVE.L    A2,-(A7)
  622. 0044:     _LoadResource    
  623. 0046:     MOVE.L    D6,-(A7)
  624. 0048:     MOVE.L    A2,-(A7)
  625. 004A:     JSR    locProc37
  626. 004E:     ADDQ.L    #8,A7
  627. 0050:     BRA.S    L0788
  628. 0052: L0740    MOVE.L    D6,-(A7)
  629. 0054:     JSR    locProc35
  630. 0058:     MOVEA.L    D0,A2
  631. 005A:     CLR.L    $FFEC(A6)
  632. 005E:     PEA    $FFEC(A6)
  633. 0062:     PEA    $000A
  634. 0066:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  635. 006C:     MOVE.L    A2,-(A7)
  636. 006E:     JSR    locProc44
  637. 0072:     SUBQ.L    #2,A7
  638. 0074:     _ResError    
  639. 0076:     MOVE.W    (A7)+,D0
  640. 0078:     EXT.L    D0
  641. 007A:     MOVE.W    D0,D0
  642. 007C:     LEA    $0014(A7),A7
  643. 0080:     BEQ.S    L0788
  644. 0082:     PEA    $FFEC(A6)
  645. 0086:     PEA    $000A
  646. 008A:     MOVE.L    #$494E4954,-(A7)    ;'INIT'
  647. 0090:     MOVE.L    A2,-(A7)
  648. 0092:     JSR    locProc44
  649. 0096:     LEA    $0010(A7),A7
  650. 009A: L0788    MOVE.L    A2,-(A7)
  651. 009C:     JSR    locProc39
  652. 00A0:     MOVE.L    D6,-(A7)
  653. 00A2:     MOVE.L    (A2),-(A7)
  654. 00A4:     MOVE.L    D4,-(A7)
  655. 00A6:     JSR    locProc41
  656. 00AA:     MOVEA.L    (A2),A0
  657. 00AC:     ADDQ.L    #2,A0
  658. 00AE:     MOVE.L    $020C,(A0)
  659. 00B2:     MOVE.L    A2,-(A7)
  660. 00B4:     _ChangedResource    
  661. 00B6:     MOVE.L    A2,-(A7)
  662. 00B8:     _WriteResource    
  663. 00BA:     MOVE.L    A2,-(A7)
  664. 00BC:     JSR    locProc40
  665. 00C0:     MOVE.L    D5,D0
  666. 00C2:     SUB.L    D3,D0
  667. 00C4:     MOVE.L    D0,D6
  668. 00C6:     SUBQ.L    #4,A7
  669. 00C8:     MOVE.L    #$6174706C,-(A7)    ;'atpl'
  670. 00CE:     MOVE.W    #$0080,-(A7)
  671. 00D2:     _GetResource    
  672. 00D4:     MOVE.L    (A7)+,D0
  673. 00D6:     MOVEA.L    D0,A2
  674. 00D8:     MOVE.L    A2,D7
  675. 00DA:     LEA    $0014(A7),A7
  676. 00DE:     BEQ    L07F0
  677. 00E2:     SUBQ.L    #2,A7
  678. 00E4:     MOVE.L    A2,-(A7)
  679. 00E6:     _HomeResFile    
  680. 00E8:     MOVE.W    (A7)+,D0
  681. 00EA:     CMP.W    $0016(A6),D0
  682. 00EE:     BNE    L07F0
  683. 00F2:     MOVE.L    A2,-(A7)
  684. 00F4:     _LoadResource    
  685. 00F6:     MOVE.L    D6,-(A7)
  686. 00F8:     MOVE.L    A2,-(A7)
  687. 00FA:     JSR    locProc37
  688. 00FE:     ADDQ.L    #8,A7
  689. 0100:     BRA.S    L0838
  690. 0102: L07F0    MOVE.L    D6,-(A7)
  691. 0104:     JSR    locProc35
  692. 0108:     MOVEA.L    D0,A2
  693. 010A:     CLR.L    $FFEC(A6)
  694. 010E:     PEA    $FFEC(A6)
  695. 0112:     PEA    $0080
  696. 0116:     MOVE.L    #$6174706C,-(A7)    ;'atpl'
  697. 011C:     MOVE.L    A2,-(A7)
  698. 011E:     JSR    locProc44
  699. 0122:     SUBQ.L    #2,A7
  700. 0124:     _ResError    
  701. 0126:     MOVE.W    (A7)+,D0
  702. 0128:     EXT.L    D0
  703. 012A:     MOVE.W    D0,D0
  704. 012C:     LEA    $0014(A7),A7
  705. 0130:     BEQ.S    L0838
  706. 0132:     PEA    $FFEC(A6)
  707. 0136:     PEA    $0080
  708. 013A:     MOVE.L    #$6174706C,-(A7)    ;'atpl'
  709. 0140:     MOVE.L    A2,-(A7)
  710. 0142:     JSR    locProc44
  711. 0146:     LEA    $0010(A7),A7
  712. 014A: L0838    MOVE.L    A2,-(A7)
  713. 014C:     JSR    locProc39
  714. 0150:     MOVE.L    D6,-(A7)
  715. 0152:     MOVE.L    (A2),-(A7)
  716. 0154:     MOVE.L    D3,-(A7)
  717. 0156:     JSR    locProc41
  718. 015A:     MOVE.L    A2,-(A7)
  719. 015C:     _ChangedResource    
  720. 015E:     MOVE.L    A2,-(A7)
  721. 0160:     _WriteResource    
  722. 0162:     MOVE.L    A2,-(A7)
  723. 0164:     JSR    locProc40
  724. 0168:     LEA    locProc1,A4
  725. 016C:     MOVE.L    A4,-(A7)
  726. 016E:     JSR    locProc38
  727. 0172:     MOVEA.L    D0,A2
  728. 0174:     MOVE.L    A2,-(A7)
  729. 0176:     JSR    locProc36
  730. 017A:     MOVE.L    D0,D6
  731. 017C:     SUBQ.L    #4,A7
  732. 017E:     MOVE.L    #$44415441,-(A7)    ;'DATA'
  733. 0184:     MOVE.W    #$F05F,-(A7)
  734. 0188:     _GetResource    
  735. 018A:     MOVE.L    (A7)+,D0
  736. 018C:     MOVEA.L    D0,A3
  737. 018E:     MOVE.L    A3,D4
  738. 0190:     LEA    $001C(A7),A7
  739. 0194:     BEQ    L08A6
  740. 0198:     SUBQ.L    #2,A7
  741. 019A:     MOVE.L    A3,-(A7)
  742. 019C:     _HomeResFile    
  743. 019E:     MOVE.W    (A7)+,D0
  744. 01A0:     CMP.W    $0016(A6),D0
  745. 01A4:     BNE    L08A6
  746. 01A8:     MOVE.L    A3,-(A7)
  747. 01AA:     _LoadResource    
  748. 01AC:     MOVE.L    D6,-(A7)
  749. 01AE:     MOVE.L    A3,-(A7)
  750. 01B0:     JSR    locProc37
  751. 01B4:     ADDQ.L    #8,A7
  752. 01B6:     BRA.S    L08F2
  753. 01B8: L08A6    MOVE.L    D6,-(A7)
  754. 01BA:     JSR    locProc35
  755. 01BE:     MOVEA.L    D0,A3
  756. 01C0:     CLR.L    $FFEC(A6)
  757. 01C4:     PEA    $FFEC(A6)
  758. 01C8:     MOVE.L    #$FFFFF05F,-(A7)
  759. 01CE:     MOVE.L    #$44415441,-(A7)    ;'DATA'
  760. 01D4:     MOVE.L    A3,-(A7)
  761. 01D6:     JSR    locProc44
  762. 01DA:     SUBQ.L    #2,A7
  763. 01DC:     _ResError    
  764. 01DE:     MOVE.W    (A7)+,D0
  765. 01E0:     EXT.L    D0
  766. 01E2:     MOVE.W    D0,D0
  767. 01E4:     LEA    $0014(A7),A7
  768. 01E8:     BEQ.S    L08F2
  769. 01EA:     PEA    $FFEC(A6)
  770. 01EE:     MOVE.L    #$FFFFF05F,-(A7)
  771. 01F4:     MOVE.L    #$44415441,-(A7)    ;'DATA'
  772. 01FA:     MOVE.L    A3,-(A7)
  773. 01FC:     JSR    locProc44
  774. 0200:     LEA    $0010(A7),A7
  775. 0204: L08F2    MOVE.L    A3,-(A7)
  776. 0206:     JSR    locProc39
  777. 020A:     MOVE.L    D6,-(A7)
  778. 020C:     MOVE.L    (A3),-(A7)
  779. 020E:     MOVE.L    (A2),-(A7)
  780. 0210:     JSR    locProc41
  781. 0214:     MOVE.L    A3,-(A7)
  782. 0216:     _ChangedResource    
  783. 0218:     MOVE.L    A3,-(A7)
  784. 021A:     _WriteResource    
  785. 021C:     MOVE.L    A3,-(A7)
  786. 021E:     JSR    locProc40
  787. 0222:     LEA    $0014(A7),A7
  788. 0226:     MOVEM.L    $FFC8(A6),D2-D7/A2-A4
  789. 022C:     UNLK    A6
  790. 022E:     RTS    
  791. 0230: L091E    .WORD    $600C,0,0,$2423    ;[`.....$#]
  792. 0238:     .WORD    $2324,$5B56,$315D,$2848    ;[#$[V1](H]
  793. 0240:     .WORD    $A04A,$204C,$A029,$4EBA    ;[.J L.)N.]
  794. 0248:     .WORD    $1E,$6614,$203A,$FFE4    ;[..f. :..]
  795. 0250:     .WORD    $680,9,$3A80,$B0B8    ;[....:...]
  796. 0258:     .WORD    $20C,$6E04,$4EBA,$3C    ;[..n.N..<]
  797. 0260:     .WORD    $4E75,$5642,$4331,$2078    ;[NuVBC1 x]
  798. 0268:     .WORD    $162,$2678,$166,$43E8    ;[.b&x.fC.]
  799. 0270:     .WORD    $10,$CA9,$2423,$2324    ;[....$##$]
  800. 0278:     .WORD    8,$660E,$CA9,$5B56    ;[..f...[V]
  801. 0280:     .WORD    $315D,$C,$6604,$70FF    ;[1]..f.p.]
  802. 0288:     .WORD    $4E75,$2050,$2008,$6706    ;[Nu P .g.]
  803. 0290:     .WORD    $B7C8,$6702,$60D8,$7000    ;[..g.`.p.]
  804. 0298:     .WORD    $4E75,$43FA,$298,$45FA    ;[NuC...E.]
  805. 02A0:     .WORD    $78,$93CA,$2009,$680    ;[.x.. ...]
  806. 02A8:     .WORD    0,$20,$A51E,$3000    ;[... ..0.]
  807. 02B0:     .WORD    $6660,$2F08,$43FA,$27E    ;[f`/.C..~]
  808. 02B8:     .WORD    $45FA,$5E,$93CA,$2009    ;[E..^.. .]
  809. 02C0:     .WORD    $2248,$D2FC,$20,$41FA    ;["H... A.]
  810. 02C8:     .WORD    $50,$A02E,$205F,$317C    ;[.P.. _1|]
  811. 02D0:     .WORD    1,4,$43E8,$20    ;[....C.. ]
  812. 02D8:     .WORD    $2149,6,$317C,$E10    ;[!I..1|..]
  813. 02E0:     .WORD    $A,$317C,$A,$C    ;[..1|....]
  814. 02E8:     .WORD    $2F08,$A033,$205F,$43E8    ;[/..3 _C.]
  815. 02F0:     .WORD    $10,$4291,$237C,$2423    ;[..B.#|$#]
  816. 02F8:     .WORD    $2324,8,$237C,$5B56    ;[#$..#|[V]
  817. 0300:     .WORD    $315D,$C,$303C,$A003    ;[1]..0<..]
  818. 0308:     .WORD    $2F09,$A146,$225F,$2348    ;[/..F"_#H]
  819. 0310:     .WORD    4,$4E75,$5630,$3031    ;[..NuV001]
  820. 0318: L0A06    .WORD    $41FA,$FFFE,$90FC,$20    ;[A...... ]
  821. 0320:     .WORD    $317C,$E10,$A,$D0FC    ;[1|......]
  822. 0328:     .WORD    $10,$2F08,$4850,$4EBA    ;[../.HPN.]
  823. 0330:     .WORD    $2C,$584F,$205F,$2010    ;[.,XO _ .]
  824. 0338:     .WORD    $C80,0,$E,$6D0A    ;[......m.]
  825. 0340:     .WORD    $303C,$A003,$41FA,$190    ;[0<..A...]
  826. 0348:     .WORD    $A047,$4E75,$206F,4    ;[.GNu o..]
  827. 0350:     .WORD    $A029,$4E75,$206F,4    ;[.)Nu o..]
  828. 0358:     .WORD    $A02A,$4E75,$48E7,$2020    ;[.*NuH.  ]
  829. 0360:     .WORD    $242F,$C,$2478,$A50    ;[$/..$x.P]
  830. 0368:     .WORD    $602C,$2F0A,$4EBA,$FFDE    ;[`,/.N...]
  831. 0370:     .WORD    $2052,$3038,$900,$B068    ;[ R08...h]
  832. 0378:     .WORD    $14,$588F,$660A,$2F02    ;[..X.f./.]
  833. 0380:     .WORD    $2F08,$4EBA,$1E,$508F    ;[/.N...P.]
  834. 0388:     .WORD    $2F0A,$4EBA,$FFC8,$2052    ;[/.N... R]
  835. 0390:     .WORD    $2468,$10,$588F,$200A    ;[$h..X. .]
  836. 0398:     .WORD    $6600,$FFD0,$4CDF,$404    ;[f...L...]
  837. 03A0:     .WORD    $4E75,$48E7,$3E30,$226F    ;[NuH.>0"o]
  838. 03A8:     .WORD    $20,$246F,$24,$4241    ;[. $o.$BA]
  839. 03B0:     .WORD    $7400,$3029,$18,$48C0    ;[t.0)..H.]
  840. 03B8:     .WORD    $D089,$2640,$3813,$5244    ;[..&@8.RD]
  841. 03C0:     .WORD    $4243,$6040,$3003,$48C0    ;[BC`@0.H.]
  842. 03C8:     .WORD    $E780,$CB3,$5655,$4C54    ;[....VULT]
  843. 03D0:     .WORD    $802,$6602,$7401,$3003    ;[..f.t.0.]
  844. 03D8:     .WORD    $48C0,$E780,$CB3,$434F    ;[H.....CO]
  845. 03E0:     .WORD    $4445,$802,$661C,$7201    ;[DE..f.r.]
  846. 03E8:     .WORD    $3003,$48C0,$E780,$3A33    ;[0.H...:3]
  847. 03F0:     .WORD    $806,$5245,$3003,$48C0    ;[..RE0.H.]
  848. 03F8:     .WORD    $E780,$3C33,$808,$646    ;[..<3...F]
  849. 0400:     .WORD    $1C,$5243,$B644,$6D00    ;[..RC.Dm.]
  850. 0408:     .WORD    $FFBC,$702C,$B092,$6C1E    ;[..p,..l.]
  851. 0410:     .WORD    $4A82,$671A,$4A41,$6716    ;[J.g.JAg.]
  852. 0418:     .WORD    $3005,$48C0,$2F00,$3006    ;[0.H./.0.]
  853. 0420:     .WORD    $48C0,$2F00,$2F09,$4EBA    ;[H././.N.]
  854. 0428:     .WORD    $12,$4FEF,$C,$4A82    ;[..O...J.]
  855. 0430:     .WORD    $6702,$5292,$4CDF,$C7C    ;[g.R.L..|]
  856. 0438:     .WORD    $4E75    ;[Nu......]
  857.  
  858. ;Seg 1 = DATA ID# -4001 proc 13 of 46 (local)
  859.  
  860. 0000: L0B28    LINK    A6,#$FFF4
  861. 0004:     MOVEM.L    D2-D5/A2-A3,-(A7)
  862. 0008:     MOVEA.L    $0008(A6),A0
  863. 000C:     MOVE.W    $000E(A6),D0
  864. 0010:     MOVE.W    $0012(A6),D1
  865. 0014:     CLR.W    D3
  866. 0016:     MOVE.W    D3,D4
  867. 0018:     EXT.L    D0
  868. 001A:     ADDA.L    D0,A0
  869. 001C:     MOVE.L    A0,D5
  870. 001E:     MOVEQ    $01,D2
  871. 0020:     BRA.S    L0B84
  872. 0022: L0B4A    MOVE.W    D2,D0
  873. 0024:     EXT.L    D0
  874. 0026:     MULS    #$0C,D0
  875. 002A:     MOVEA.L    D0,A0
  876. 002C:     ADDA.L    D5,A0
  877. 002E:     LEA    $FFF4(A6),A1
  878. 0032:     MOVE.L    (A0)+,(A1)+
  879. 0034:     MOVE.L    (A0)+,(A1)+
  880. 0036:     MOVE.L    (A0)+,(A1)+
  881. 0038:     CMPI.W    #$000D,$FFF4(A6)
  882. 003E:     BNE.S    L0B76
  883. 0040:     TST.L    $FFFC(A6)
  884. 0044:     BEQ.S    L0B82
  885. 0046:     MOVEQ    $01,D4
  886. 0048:     MOVEA.L    $FFFC(A6),A3
  887. 004C:     BRA.S    L0B82
  888. 004E: L0B76    TST.L    $FFFC(A6)
  889. 0052:     BEQ.S    L0B82
  890. 0054:     MOVEQ    $01,D3
  891. 0056:     MOVEA.L    $FFFC(A6),A2
  892. 005A: L0B82    ADDQ.W    #1,D2
  893. 005C: L0B84    CMP.W    D1,D2
  894. 005E:     BLT    L0B4A
  895. 0062:     TST.W    D4
  896. 0064:     BEQ.S    L0BA8
  897. 0066:     BTST    #$0000,$020F
  898. 006C:     BLE.S    L0B9E
  899. 006E:     MOVE.L    #$000003DE,D0
  900. 0074:     BRA.S    L0BA4
  901. 0076: L0B9E    MOVE.L    #$00000472,D0
  902. 007C: L0BA4    MOVEA.L    (A3),A0
  903. 007E:     BRA.S    L0BB0
  904. 0080: L0BA8    TST.W    D3
  905. 0082:     BEQ.S    L0BB2
  906. 0084:     MOVEA.L    (A2),A0
  907. 0086:     MOVEQ    $21,D0
  908. 0088: L0BB0    ADDA.L    D0,A0
  909. 008A: L0BB2    MOVE.L    A0,-(A7)
  910. 008C:     JSR    locProc14
  911. 0090:     ADDQ.L    #4,A7
  912. 0092:     MOVEM.L    $FFDC(A6),D2-D5/A2-A3
  913. 0098:     UNLK    A6
  914. 009A:     RTS    
  915. 009C:     .WORD    $41FA,$FE40,$90FC,$10    ;[A..@....]
  916. 00A4:     .WORD    $2068,4,$303C,$A003    ;[ h..0<..]
  917. 00AC:     .WORD    $A047,$7660,$429F,$51CB    ;[.Gv`B.Q.]
  918. 00B4:     .WORD    $FFFC,$43FA,$FFE4,$45FA    ;[..C...E.]
  919. 00BC:     .WORD    $FE22,$93CA,$2009,$5140    ;[.".. .Q@]
  920. 00C4:     .WORD    $421A,$51C8,$FFFC,$9DCE    ;[B.Q.....]
  921. 00CC:     .WORD    $4ED0,$4E75    ;[N.Nu....]
  922.  
  923. ;Seg 1 = DATA ID# -4001 proc 14 of 46 (local)
  924.  
  925. 0000: L0BF8    MOVEA.L    $0004(A7),A4
  926. 0004:     MOVEQ    $60,D3
  927. 0006: L0BFE    CLR.L    (A7)+
  928. 0008:     DBRA    D3,L0BFE
  929. 000C:     LEA    L0BF8,A1
  930. 0010:     LEA    L0A06,A2
  931. 0014:     SUBA.L    A2,A1
  932. 0016:     MOVE.L    A1,D0
  933. 0018:     SUBI.L    #$00000010,D0
  934. 001E: L0C16    CLR.B    (A2)+
  935. 0020:     DBRA    D0,L0C16
  936. 0024:     SUBA.L    A6,A6
  937. 0026:     JMP    (A4)
  938. 0028:     RTS    
  939. 002A: L0C22    .WORD    $4E75,$6004,0,0    ;[Nu`.....]
  940. 0032:     .WORD    $2848,$A04A,$204C,$A029    ;[(H.J L.)]
  941. 003A:     .WORD    $4EBA,$1E,$6614,$203A    ;[N...f. :]
  942. 0042:     .WORD    $FFEC,$680,5,$4600    ;[......F.]
  943. 004A:     .WORD    $B0B8,$20C,$6E04,$4EBA    ;[....n.N.]
  944. 0052:     .WORD    $3C,$4E75,$5642,$4332    ;[.<NuVBC2]
  945. 005A:     .WORD    $2078,$162,$2678,$166    ;[ x.b&x.f]
  946. 0062:     .WORD    $43E8,$10,$CA9,$2423    ;[C.....$#]
  947. 006A:     .WORD    $2324,8,$660E,$CA9    ;[#$..f...]
  948. 0072:     .WORD    $5B56,$325D,$C,$6604    ;[[V2]..f.]
  949. 007A:     .WORD    $70FF,$4E75,$2050,$2008    ;[p.Nu P .]
  950. 0082:     .WORD    $6706,$B7C8,$6702,$60D8    ;[g...g.`.]
  951. 008A:     .WORD    $7000,$4E75,$43FA,$17C    ;[p.NuC..|]
  952. 0092:     .WORD    $45FA,$6A,$93CA,$2009    ;[E..j.. .]
  953. 009A:     .WORD    $680,0,$20,$A51E    ;[..... ..]
  954. 00A2:     .WORD    $3000,$6652,$2F08,$43FA    ;[0.fR/.C.]
  955. 00AA:     .WORD    $162,$45FA,$50,$93CA    ;[.bE..P..]
  956. 00B2:     .WORD    $2009,$2248,$D2FC,$20    ;[ ."H... ]
  957. 00BA:     .WORD    $41FA,$42,$A02E,$205F    ;[A..B.. _]
  958. 00C2:     .WORD    $317C,1,4,$43E8    ;[1|....C.]
  959. 00CA:     .WORD    $20,$2149,6,$317C    ;[. !I..1|]
  960. 00D2:     .WORD    $E10,$A,$317C,$A    ;[....1|..]
  961. 00DA:     .WORD    $C,$2F08,$A033,$205F    ;[../..3 _]
  962. 00E2:     .WORD    $43E8,$10,$4291,$237C    ;[C...B.#|]
  963. 00EA:     .WORD    $2423,$2324,8,$237C    ;[$##$..#|]
  964. 00F2:     .WORD    $5B56,$325D,$C,$4E75    ;[[V2]..Nu]
  965. 00FA:     .WORD    $5630,$3032,$41FA,$FFFE    ;[V002A...]
  966. 0102:     .WORD    $90FC,$20,$317C,$E10    ;[... 1|..]
  967. 010A:     .WORD    $A,$D0FC,$10,$4850    ;[......HP]
  968. 0112:     .WORD    $4EBA,$16,$584F,$4E75    ;[N...XONu]
  969. 011A:     .WORD    $206F,4,$A029,$4E75    ;[ o...)Nu]
  970. 0122:     .WORD    $206F,4,$A02A,$4E75    ;[ o...*Nu]
  971. 012A:     .WORD    $48E7,$2020,$242F,$C    ;[H.  $/..]
  972. 0132:     .WORD    $2478,$A50,$602C,$2F0A    ;[$x.P`,/.]
  973. 013A:     .WORD    $4EBA,$FFDE,$2052,$3038    ;[N... R08]
  974. 0142:     .WORD    $900,$B068,$14,$588F    ;[...h..X.]
  975. 014A:     .WORD    $660A,$2F02,$2F08,$4EBA    ;[f././.N.]
  976. 0152:     .WORD    $1E,$508F,$2F0A,$4EBA    ;[..P./.N.]
  977. 015A:     .WORD    $FFC8,$2052,$2468,$10    ;[.. R$h..]
  978. 0162:     .WORD    $588F,$200A,$6600,$FFD0    ;[X. .f...]
  979. 016A:     .WORD    $4CDF,$404,$4E75,$48E7    ;[L...NuH.]
  980. 0172:     .WORD    $3020,$206F,$10,$246F    ;[0  o..$o]
  981. 017A:     .WORD    $14,$4240,$7400,$3028    ;[..B@t.0(]
  982. 0182:     .WORD    $18,$48C0,$D088,$2240    ;[..H..."@]
  983. 018A:     .WORD    $3611,$5243,$4241,$6026    ;[6.RCBA`&]
  984. 0192:     .WORD    $3001,$48C0,$E780,$CB1    ;[0.H.....]
  985. 019A:     .WORD    $5655,$4C54,$802,$6602    ;[VULT..f.]
  986. 01A2:     .WORD    $7401,$3001,$48C0,$E780    ;[t.0.H...]
  987. 01AA:     .WORD    $CB1,$4552,$4943,$802    ;[..ERIC..]
  988. 01B2:     .WORD    $6602,$7401,$5241,$B243    ;[f.t.RA.C]
  989. 01BA:     .WORD    $6D00,$FFD6,$7018,$B092    ;[m...p...]
  990. 01C2:     .WORD    $6C08,$4A82,$6704,$4EBA    ;[l.J.g.N.]
  991. 01CA:     .WORD    $E,$4A82,$6702,$5292    ;[..J.g.R.]
  992. 01D2:     .WORD    $4CDF,$40C,$4E75,$48E7    ;[L...NuH.]
  993. 01DA:     .WORD    $8080,$A9FF,$41FA,$FF1E    ;[....A...]
  994. 01E2:     .WORD    $90FC,$20,$4268,$A    ;[... Bh..]
  995. 01EA:     .WORD    $204D,$D0FC,$20,$5848    ;[ M... XH]
  996. 01F2:     .WORD    $D0FC,$20,$7010,$690    ;[... p...]
  997. 01FA:     .WORD    0,4,$D0FC,$40    ;[.......@]
  998. 0202:     .WORD    $51C8,$FFF4,$4CDF,$101    ;[Q...L...]
  999. 020A:     .WORD    $4E75,$4523,$5612,$4E75    ;[NuE#V.Nu]
  1000. 0212: L0E0A    .WORD    $6004,0,0,$2848    ;[`.....(H]
  1001. 021A:     .WORD    $A04A,$204C,$A029,$203A    ;[.J L.) :]
  1002. 0222:     .WORD    $FFF2,$680,2,$A300    ;[........]
  1003. 022A:     .WORD    $B0B8,$20C,$6E04,$4EBA    ;[....n.N.]
  1004. 0232:     .WORD    $52,$4E75,$206F,4    ;[.RNu o..]
  1005. 023A:     .WORD    $A029,$4E75,$206F,4    ;[.)Nu o..]
  1006. 0242:     .WORD    $A02A,$4E75,$202F,$C    ;[.*Nu /..]
  1007. 024A:     .WORD    $226F,8,$206F,4    ;["o.. o..]
  1008. 0252:     .WORD    $A02E,$4E75,$202F,4    ;[..Nu /..]
  1009. 025A:     .WORD    $A122,$21C0,$220,$2008    ;[."!..  .]
  1010. 0262:     .WORD    $4E75,$2038,$2A6,$4E75    ;[Nu 8..Nu]
  1011. 026A:     .WORD    $206F,4,$A01B,$21C0    ;[ o....!.]
  1012. 0272:     .WORD    $220,$4E75,$A11A,$21C0    ;[. Nu..!.]
  1013. 027A:     .WORD    $220,$2008,$4E75,$4C44    ;[.  .NuLD]
  1014. 0282:     .WORD    $574D    ;[WM......]
  1015.  
  1016. ;Seg 1 = DATA ID# -4001 proc 15 of 46 (local)
  1017.  
  1018. 0000: L0E7C    LINK    A6,#$FEDC
  1019. 0004:     BTST    #$0002,$017B
  1020. 000A:     BEQ.S    L0E94
  1021. 000C:     BTST    #$0007,$017A
  1022. 0012:     BEQ.S    L0E94
  1023. 0014:     BRA    L0F14
  1024. 0018: L0E94    JSR    locProc16
  1025. 001C:     TST.L    D0
  1026. 001E:     BEQ.S    L0EA0
  1027. 0020:     BRA    L0F14
  1028. 0024: L0EA0    PEA    $FFF0(A6)
  1029. 0028:     PEA    $FFEC(A6)
  1030. 002C:     JSR    locProc18
  1031. 0030:     TST.L    D0
  1032. 0032:     ADDQ.L    #8,A7
  1033. 0034:     BEQ.S    L0EB8
  1034. 0036:     PEA    $0005
  1035. 003A:     BRA.S    L0F0A
  1036. 003C: L0EB8    PEA    $FFFC(A6)
  1037. 0040:     PEA    $FFF8(A6)
  1038. 0044:     PEA    $FEE6(A6)
  1039. 0048:     PEA    $FFF4(A6)
  1040. 004C:     MOVE.L    $FFF0(A6),-(A7)
  1041. 0050:     MOVE.L    $FFEC(A6),-(A7)
  1042. 0054:     JSR    locProc19
  1043. 0058:     TST.L    D0
  1044. 005A:     LEA    $0018(A7),A7
  1045. 005E:     BEQ.S    L0EE2
  1046. 0060:     PEA    $000F
  1047. 0064:     BRA.S    L0F0A
  1048. 0066: L0EE2    MOVE.L    $FFFC(A6),-(A7)
  1049. 006A:     MOVE.L    $FFF8(A6),-(A7)
  1050. 006E:     PEA    $FEE6(A6)
  1051. 0072:     MOVE.L    $FFF4(A6),-(A7)
  1052. 0076:     MOVE.L    $FFF0(A6),-(A7)
  1053. 007A:     MOVE.L    $FFEC(A6),-(A7)
  1054. 007E:     JSR    locProc17
  1055. 0082:     TST.L    D0
  1056. 0084:     LEA    $0018(A7),A7
  1057. 0088:     BEQ.S    L0F14
  1058. 008A:     PEA    $0014
  1059. 008E: L0F0A    JSR    locProc20
  1060. 0092:     MOVEQ    $00,D0
  1061. 0094:     ADDQ.L    #4,A7
  1062. 0096:     BRA.S    L0F16
  1063. 0098: L0F14    MOVEQ    $00,D0
  1064. 009A: L0F16    UNLK    A6
  1065. 009C:     RTS    
  1066. 009E: L0F1A    .WORD    $48E7,$3000,$242F,$C    ;[H.0.$/..]
  1067. 00A6:     .WORD    $4EBA,$FF4A,$2600,$4EBA    ;[N..J&.N.]
  1068. 00AE:     .WORD    $FF32,$2F00,$4EBA,$FF32    ;[.2/.N..2]
  1069. 00B6:     .WORD    $2F02,$4EBA,$FF18,$2400    ;[/.N...$.]
  1070. 00BE:     .WORD    $2F03,$4EBA,$FF24,$4FEF    ;[/.N..$O.]
  1071. 00C6:     .WORD    $C,$2002,$4CDF,$C    ;[.. .L...]
  1072. 00CE:     .WORD    $4E75    ;[Nu......]
  1073.  
  1074. ;Seg 1 = DATA ID# -4001 proc 16 of 46 (local)
  1075.  
  1076. 0000: L0F4C    MOVEA.L    $011C,A0
  1077. 0004:     LEA    $00B0(A0),A0
  1078. 0008:     TST.L    (A0)
  1079. 000A:     BNE.S    L0F5C
  1080. 000C:     MOVEQ    $00,D0
  1081. 000E:     BRA.S    L0F5E
  1082. 0010: L0F5C    MOVEQ    $01,D0
  1083. 0012: L0F5E    RTS    
  1084.  
  1085. ;Seg 1 = DATA ID# -4001 proc 17 of 46 (local)
  1086.  
  1087. 0000: L0F60    MOVEM.L    D2-D3/A2-A4,-(A7)
  1088. 0004:     MOVEA.L    $0018(A7),A3
  1089. 0008:     MOVE.L    $001C(A7),D0
  1090. 000C:     MOVEA.L    $0020(A7),A2
  1091. 0010:     MOVEA.L    A2,A0
  1092. 0012:     LEA    $011E(A0),A0
  1093. 0016:     CMP.L    A0,D0
  1094. 0018:     BCC.S    L0F80
  1095. 001A:     MOVEQ    $02,D0
  1096. 001C:     BRA    L1052
  1097. 0020: L0F80    PEA    $0028
  1098. 0024:     JSR    L0F1A
  1099. 0028:     MOVE.L    D0,D2
  1100. 002A:     PEA    $0008
  1101. 002E:     JSR    L0F1A
  1102. 0032:     MOVE.L    D0,D3
  1103. 0034:     MOVE.L    D2,-(A7)
  1104. 0036:     JSR    L0E2E
  1105. 003A:     MOVE.L    D3,-(A7)
  1106. 003C:     JSR    L0E2E
  1107. 0040:     MOVEA.L    D2,A4
  1108. 0042:     MOVE.L    (A4),D1
  1109. 0044:     MOVEA.L    D3,A4
  1110. 0046:     MOVE.L    (A4),D0
  1111. 0048:     MOVEA.L    D0,A4
  1112. 004A:     MOVE.L    A2,$0004(A4)
  1113. 004E:     CLR.L    (A2)
  1114. 0050:     MOVEA.L    $0034(A7),A0
  1115. 0054:     LEA    $0008(A2),A1
  1116. 0058:     MOVE.W    (A0)+,(A1)+
  1117. 005A:     MOVE.W    (A0)+,(A1)+
  1118. 005C:     MOVE.W    (A0)+,(A1)+
  1119. 005E:     MOVE.L    $0038(A7),$0012(A2)
  1120. 0064:     MOVE.L    $003C(A7),$0016(A2)
  1121. 006A:     MOVEA.L    D0,A4
  1122. 006C:     CLR.L    (A4)
  1123. 006E:     MOVEA.L    A3,A0
  1124. 0070:     MOVEA.L    D1,A4
  1125. 0072:     MOVE.L    A3,(A4)
  1126. 0074:     MOVE.W    (A0),D0
  1127. 0076:     EXT.L    D0
  1128. 0078:     ANDI.L    #$0000FF00,D0
  1129. 007E:     MOVEA.L    D1,A4
  1130. 0080:     MOVE.W    D0,$0004(A4)
  1131. 0084:     MOVEA.L    D1,A4
  1132. 0086:     ORI.W    #$0020,$0004(A4)
  1133. 008C:     MOVEA.L    D1,A4
  1134. 008E:     CLR.W    $0006(A4)
  1135. 0092:     MOVEA.L    D1,A4
  1136. 0094:     CLR.L    $0008(A4)
  1137. 0098:     MOVEA.L    D1,A4
  1138. 009A:     CLR.L    $000C(A4)
  1139. 009E:     MOVEA.L    D1,A4
  1140. 00A0:     CLR.L    $0010(A4)
  1141. 00A4:     MOVEA.L    D1,A4
  1142. 00A6:     MOVE.L    D3,$0014(A4)
  1143. 00AA:     MOVEA.L    D1,A4
  1144. 00AC:     MOVE.W    #$FFD3,$0018(A4)
  1145. 00B2:     MOVEA.L    D1,A4
  1146. 00B4:     CLR.L    $001A(A4)
  1147. 00B8:     MOVEA.L    D1,A4
  1148. 00BA:     CLR.L    $001E(A4)
  1149. 00BE:     MOVEA.L    D1,A4
  1150. 00C0:     MOVE.W    $0002(A0),$0022(A4)
  1151. 00C6:     MOVEA.L    D1,A4
  1152. 00C8:     MOVE.W    $0004(A0),$0024(A4)
  1153. 00CE:     MOVEA.L    D1,A4
  1154. 00D0:     MOVE.W    $0006(A0),$0026(A4)
  1155. 00D6:     MOVEA.L    $011C,A0
  1156. 00DA:     LEA    $00B0(A0),A0
  1157. 00DE:     MOVE.L    D2,(A0)
  1158. 00E0:     MOVE.L    D2,-(A7)
  1159. 00E2:     JSR    L0E36
  1160. 00E6:     MOVE.L    D3,-(A7)
  1161. 00E8:     JSR    L0E36
  1162. 00EC:     MOVEQ    $00,D0
  1163. 00EE:     LEA    $0018(A7),A7
  1164. 00F2: L1052    MOVEM.L    (A7)+,D2-D3/A2-A4
  1165. 00F6:     RTS    
  1166.  
  1167. ;Seg 1 = DATA ID# -4001 proc 18 of 46 (local)
  1168.  
  1169. 0000: L1058    MOVEA.L    $0004(A7),A0
  1170. 0004:     MOVEA.L    $0008(A7),A1
  1171. 0008:     MOVE.L    $0108,D1
  1172. 000C:     ASR.L    #$0001,D1
  1173. 000E:     ADDI.L    #$00000400,D1
  1174. 0014:     MOVE.L    $010C,D0
  1175. 0018:     SUBI.L    #$00003C00,D0
  1176. 001E:     CMP.L    D0,D1
  1177. 0020:     BLT.S    L107E
  1178. 0022:     MOVEQ    $01,D1
  1179. 0024:     BRA.S    L10A2
  1180. 0026: L107E    MOVE.L    $010C,(A1)
  1181. 002A:     SUBI.L    #$00003C00,$010C
  1182. 0032:     MOVE.L    $010C,D1
  1183. 0036:     MOVEQ    $FC,D0
  1184. 0038:     AND.L    D0,D1
  1185. 003A:     MOVE.L    D1,$010C
  1186. 003E:     MOVE.L    $010C,D1
  1187. 0042:     MOVEQ    $10,D0
  1188. 0044:     ADD.L    D0,D1
  1189. 0046:     MOVE.L    D1,(A0)
  1190. 0048:     MOVEQ    $00,D1
  1191. 004A: L10A2    MOVE.L    D1,D0
  1192. 004C:     RTS    
  1193.  
  1194. ;Seg 1 = DATA ID# -4001 proc 19 of 46 (local)
  1195.  
  1196. 0000: L10A6    MOVEM.L    D2-D4/A2-A3,-(A7)
  1197. 0004:     MOVE.L    $0018(A7),D3
  1198. 0008:     MOVE.L    $001C(A7),D4
  1199. 000C:     MOVEA.L    $0020(A7),A2
  1200. 0010:     SUBQ.L    #4,A7
  1201. 0012:     MOVE.L    #$6174706C,-(A7)    ;'atpl'
  1202. 0018:     MOVE.W    #$0080,-(A7)
  1203. 001C:     _GetResource    
  1204. 001E:     MOVE.L    (A7)+,D0
  1205. 0020:     MOVEA.L    D0,A3
  1206. 0022:     SUBQ.L    #2,A7
  1207. 0024:     _ResError    
  1208. 0026:     MOVE.W    (A7)+,D0
  1209. 0028:     EXT.L    D0
  1210. 002A:     MOVE.W    D0,D0
  1211. 002C:     BEQ.S    L10DA
  1212. 002E:     MOVEQ    $09,D0
  1213. 0030:     BRA    L119C
  1214. 0034: L10DA    MOVE.L    A3,-(A7)
  1215. 0036:     JSR    L0E2E
  1216. 003A:     SUBQ.L    #4,A7
  1217. 003C:     MOVE.L    A3,-(A7)
  1218. 003E:     _SizeRsrc    
  1219. 0040:     MOVE.L    (A7)+,D0
  1220. 0042:     MOVE.L    D0,D2
  1221. 0044:     ADDQ.L    #4,A7
  1222. 0046:     BLT    L10F8
  1223. 004A:     MOVE.L    D2,D0
  1224. 004C:     ADD.L    D3,D0
  1225. 004E:     CMP.L    D0,D4
  1226. 0050:     BCC.S    L10FE
  1227. 0052: L10F8    MOVEQ    $01,D0
  1228. 0054:     BRA    L119C
  1229. 0058: L10FE    MOVE.L    D2,-(A7)
  1230. 005A:     MOVE.L    D3,-(A7)
  1231. 005C:     MOVE.L    (A3),-(A7)
  1232. 005E:     JSR    L0E3E
  1233. 0062:     MOVE.L    D2,D0
  1234. 0064:     ADDQ.L    #4,D0
  1235. 0066:     MOVEQ    $FE,D1
  1236. 0068:     AND.L    D1,D0
  1237. 006A:     MOVE.L    D0,D2
  1238. 006C:     ADD.L    D2,D3
  1239. 006E:     MOVE.L    A3,-(A7)
  1240. 0070:     JSR    L0E36
  1241. 0074:     MOVE.L    A3,-(A7)
  1242. 0076:     _ReleaseResource    
  1243. 0078:     SUBQ.L    #4,A7
  1244. 007A:     MOVE.L    #$44415441,-(A7)    ;'DATA'
  1245. 0080:     MOVE.W    #$F05F,-(A7)
  1246. 0084:     _GetResource    
  1247. 0086:     MOVE.L    (A7)+,D0
  1248. 0088:     MOVEA.L    D0,A3
  1249. 008A:     SUBQ.L    #2,A7
  1250. 008C:     _ResError    
  1251. 008E:     MOVE.W    (A7)+,D0
  1252. 0090:     EXT.L    D0
  1253. 0092:     MOVE.W    D0,D0
  1254. 0094:     LEA    $0010(A7),A7
  1255. 0098:     BEQ.S    L1144
  1256. 009A:     MOVEQ    $06,D0
  1257. 009C:     BRA.S    L119C
  1258. 009E: L1144    MOVE.L    A3,-(A7)
  1259. 00A0:     JSR    L0E2E
  1260. 00A4:     SUBQ.L    #4,A7
  1261. 00A6:     MOVE.L    A3,-(A7)
  1262. 00A8:     _SizeRsrc    
  1263. 00AA:     MOVE.L    (A7)+,D0
  1264. 00AC:     MOVE.L    D0,D2
  1265. 00AE:     MOVEA.L    $002C(A7),A0
  1266. 00B2:     MOVE.L    D3,(A0)
  1267. 00B4:     MOVEA.L    $0030(A7),A0
  1268. 00B8:     MOVE.L    D2,(A0)
  1269. 00BA:     TST.L    D2
  1270. 00BC:     ADDQ.L    #4,A7
  1271. 00BE:     BLT    L1170
  1272. 00C2:     MOVE.L    D2,D0
  1273. 00C4:     ADD.L    D3,D0
  1274. 00C6:     CMP.L    D0,D4
  1275. 00C8:     BCC.S    L1174
  1276. 00CA: L1170    MOVEQ    $07,D0
  1277. 00CC:     BRA.S    L119C
  1278. 00CE: L1174    MOVE.L    D2,-(A7)
  1279. 00D0:     MOVE.L    D3,-(A7)
  1280. 00D2:     MOVE.L    (A3),-(A7)
  1281. 00D4:     JSR    L0E3E
  1282. 00D8:     MOVE.L    D2,D0
  1283. 00DA:     ADDQ.L    #4,D0
  1284. 00DC:     MOVEQ    $FE,D1
  1285. 00DE:     AND.L    D1,D0
  1286. 00E0:     MOVE.L    D0,D2
  1287. 00E2:     ADD.L    D2,D3
  1288. 00E4:     MOVE.L    A3,-(A7)
  1289. 00E6:     JSR    L0E36
  1290. 00EA:     MOVE.L    A3,-(A7)
  1291. 00EC:     _ReleaseResource    
  1292. 00EE:     MOVE.L    D3,(A2)
  1293. 00F0:     MOVEQ    $00,D0
  1294. 00F2:     LEA    $0010(A7),A7
  1295. 00F6: L119C    MOVEM.L    (A7)+,D2-D4/A2-A3
  1296. 00FA:     RTS    
  1297.  
  1298. ;Seg 1 = DATA ID# -4001 proc 20 of 46 (local)
  1299.  
  1300. 0000: L11A2    LINK    A6,#$FFE0
  1301. 0004:     MOVEM.L    D2-D4,-(A7)
  1302. 0008:     MOVE.L    $0008(A6),D2
  1303. 000C:     MOVEQ    $09,D4
  1304. 000E:     MOVE.B    #$24,$FFE3(A6)    ;'$'
  1305. 0014:     BRA.S    L11E8
  1306. 0016: L11B8    MOVE.W    D2,D1
  1307. 0018:     ANDI.W    #$000F,D1
  1308. 001C:     MOVE.W    D1,D0
  1309. 001E:     CMPI.W    #$0009,D0
  1310. 0022:     BLE.S    L11D2
  1311. 0024:     MOVE.W    D4,D1
  1312. 0026:     SUBQ.W    #1,D4
  1313. 0028:     MOVE.W    D1,D3
  1314. 002A:     EXT.L    D0
  1315. 002C:     MOVEQ    $37,D1
  1316. 002E:     BRA.S    L11DC
  1317. 0030: L11D2    MOVE.W    D4,D1
  1318. 0032:     SUBQ.W    #1,D4
  1319. 0034:     MOVE.W    D1,D3
  1320. 0036:     EXT.L    D0
  1321. 0038:     MOVEQ    $30,D1
  1322. 003A: L11DC    ADD.L    D1,D0
  1323. 003C:     MOVE.B    D0,$E2(A6,D3.W)
  1324. 0040:     MOVE.L    D2,D0
  1325. 0042:     ASR.L    #$0004,D0
  1326. 0044:     MOVE.L    D0,D2
  1327. 0046: L11E8    CMPI.W    #$0001,D4
  1328. 004A:     BGT    L11B8
  1329. 004E:     MOVE.B    #$09,$FFE2(A6)
  1330. 0054:     PEA    $FFE2(A6)
  1331. 0058:     UNKNOWN    
  1332. 005A:     MOVEM.L    $FFD4(A6),D2-D4
  1333. 0060:     UNLK    A6
  1334. 0062:     RTS    
  1335. 0064: L1206    .WORD    $3400,$E10,0,0    ;[4.......]
  1336. 006C:     .WORD    $18,$1E,$24,$2A    ;[.....$.*]
  1337. 0074:     .WORD    $30,$52E,$4844,$3230    ;[.0..HD20]
  1338. 007C:     .WORD    $487A,$40,$6016,$487A    ;[Hz.@`.Hz]
  1339. 0084:     .WORD    $4E,$6010,$487A,$70    ;[.N`.Hz.p]
  1340. 008C:     .WORD    $600A,$487A,$56,$6004    ;[`.Hz.V`.]
  1341. 0094:     .WORD    $487A,$11C,$48E7,$C0    ;[Hz..H...]
  1342. 009C:     .WORD    $4267,$2F08,$2F09,$206F    ;[Bg/./. o]
  1343. 00A4:     .WORD    $12,$4E90,$301F,$4CDF    ;[..N.0.L.]
  1344. 00AC:     .WORD    $300,$584F,$828,1    ;[..XO.(..]
  1345. 00B4:     .WORD    6,$6604,$2F38,$8FC    ;[..f./8..]
  1346. 00BC:     .WORD    $4E75,$202F,8,$202F    ;[Nu /.. /]
  1347. 00C4:     .WORD    4,$4240,$3F40,$C    ;[..B@?@..]
  1348. 00CC:     .WORD    $205F,$508F,$4ED0,$202F    ;[ _P.N. /]
  1349. 00D4:     .WORD    8,$202F,4,$4240    ;[.. /..B@]
  1350. 00DC:     .WORD    $3F40,$C,$205F,$508F    ;[?@.. _P.]
  1351. 00E4:     .WORD    $4ED0,$202F,8,$202F    ;[N. /.. /]
  1352. 00EC:     .WORD    4,$4240,$3F40,$C    ;[..B@?@..]
  1353. 00F4:     .WORD    $205F,$508F,$4ED0,$48E7    ;[ _P.N.H.]
  1354. 00FC:     .WORD    $30,$246F,$10,$226F    ;[.0$o.."o]
  1355. 0104:     .WORD    $C,$2069,$14,$2050    ;[.. i.. P]
  1356. 010C:     .WORD    $2668,4,$302A,$1A    ;[&h..0*..]
  1357. 0114:     .WORD    $C40,$FFFF,$6D44,$6E02    ;[.@..mDn.]
  1358. 011C:     .WORD    $6008,$C40,$41,$663A    ;[`..@.Af:]
  1359. 0124:     .WORD    $600A,$426B,$E,$426B    ;[`.Bk..Bk]
  1360. 012C:     .WORD    $1C,$602E,$2069,$14    ;[..`. i..]
  1361. 0134:     .WORD    $2050,$4A90,$6618,$2069    ;[ PJ.f. i]
  1362. 013C:     .WORD    $14,$2050,$7001,$2080    ;[.. Pp. .]
  1363. 0144:     .WORD    $2F0B,$2F09,$4EBA,$24    ;[/./.N..$]
  1364. 014C:     .WORD    $4240,$508F,$600E,$4A93    ;[B@P.`.J.]
  1365. 0154:     .WORD    $6708,$2F0B,$4EBA,$6C    ;[g./.N..l]
  1366. 015C:     .WORD    $588F,$4240,$3F40,$14    ;[X.B@?@..]
  1367. 0164:     .WORD    $4CDF,$C00,$205F,$508F    ;[L... _P.]
  1368. 016C:     .WORD    $4ED0    ;[N.......]
  1369.  
  1370. ;Seg 1 = DATA ID# -4001 proc 21 of 46 (local)
  1371.  
  1372. 0000: L1310    LINK    A6,#$FF00
  1373. 0004:     MOVEA.L    $0008(A6),A1
  1374. 0008:     MOVEA.L    $000C(A6),A0
  1375. 000C:     MOVE.W    $0018(A1),$0004(A0)
  1376. 0012:     MOVE.W    $0018(A1),D0
  1377. 0016:     EXT.L    D0
  1378. 0018:     NEG.L    D0
  1379. 001A:     SUBQ.L    #1,D0
  1380. 001C:     ASL.L    #$0005,D0
  1381. 001E:     ORI.L    #$0000C000,D0
  1382. 0024:     MOVE.W    D0,$0006(A0)
  1383. 0028:     MOVEQ    $01,D0
  1384. 002A:     MOVE.L    D0,(A0)
  1385. 002C:     CLR.W    $000E(A0)
  1386. 0030:     MOVE.W    #$FFFF,$0010(A0)
  1387. 0036:     CLR.W    $001A(A0)
  1388. 003A:     CLR.W    $001C(A0)
  1389. 003E:     MOVEQ    $00,D0
  1390. 0040:     UNLK    A6
  1391. 0042:     RTS    
  1392. 0044:     .WORD    $202F,8,$202F,4    ;[ /.. /..]
  1393. 004C:     .WORD    $4240,$3F40,$C,$205F    ;[B@?@.. _]
  1394. 0054:     .WORD    $508F,$4ED0,$2F0A,$246F    ;[P.N./.$o]
  1395. 005C:     .WORD    8,$302A,$E,$6D00    ;[..0*..m.]
  1396. 0064:     .WORD    $68,$C40,5,$6E60    ;[.h.@..n`]
  1397. 006C:     .WORD    $D040,$303B,6,$4EFB    ;[.@0;..N.]
  1398. 0074:     .WORD    2,$C,$14,$1C    ;[........]
  1399. 007C:     .WORD    $24,$3A,$56,$357C    ;[.$.:.V5|]
  1400. 0084:     .WORD    1,$E,$6042,$2F0A    ;[....`B/.]
  1401. 008C:     .WORD    $4EBA,$42,$6038,$2F0A    ;[N..B`8/.]
  1402. 0094:     .WORD    $4EBA,$332,$602A,$302A    ;[N..2`*0*]
  1403. 009C:     .WORD    $1C,$526A,$1C,$C40    ;[..Rj...@]
  1404. 00A4:     .WORD    $13,$6F24,$2F0A,$4EBA    ;[..o$/.N.]
  1405. 00AC:     .WORD    $1D8,$6014,$302A,$1C    ;[..`.0*..]
  1406. 00B4:     .WORD    $526A,$1C,$C40,$13    ;[Rj...@..]
  1407. 00BC:     .WORD    $6F0E,$2F0A,$4EBA,$C2    ;[o./.N...]
  1408. 00C4:     .WORD    $357C,5,$E,$588F    ;[5|....X.]
  1409. 00CC:     .WORD    $245F,$4E75    ;[$_Nu....]
  1410.  
  1411. ;Seg 1 = DATA ID# -4001 proc 22 of 46 (local)
  1412.  
  1413. 0000: L13E0    LINK    A6,#$FE54
  1414. 0004:     MOVE.L    A2,-(A7)
  1415. 0006:     MOVEA.L    $0008(A6),A2
  1416. 000A:     CLR.L    $FFCE(A6)
  1417. 000E:     MOVE.W    $0900,$FFDA(A6)
  1418. 0014:     CLR.W    $FFDE(A6)
  1419. 0018:     CLR.W    $FFD8(A6)
  1420. 001C:     LEA    $FEC2(A6),A0
  1421. 0020:     MOVE.L    A0,$FFD4(A6)
  1422. 0024:     CLR.B    $FEC2(A6)
  1423. 0028:     CLR.L    -(A7)
  1424. 002A:     PEA    $FFC2(A6)
  1425. 002E:     JSR    locProc32
  1426. 0032:     TST.W    $FFD2(A6)
  1427. 0036:     ADDQ.L    #8,A7
  1428. 0038:     BNE    L148C
  1429. 003C:     CLR.L    $FE62(A6)
  1430. 0040:     MOVE.L    $FFD4(A6),$FE68(A6)
  1431. 0046:     MOVE.L    $FFFC(A6),$FE86(A6)
  1432. 004C:     MOVE.W    $FFF6(A6),$FE6C(A6)
  1433. 0052:     CLR.W    $FE72(A6)
  1434. 0056:     CLR.L    -(A7)
  1435. 0058:     PEA    $FE56(A6)
  1436. 005C:     JSR    locProc33
  1437. 0060:     MOVE.W    D0,D0
  1438. 0062:     ADDQ.L    #8,A7
  1439. 0064:     BNE.S    L148C
  1440. 0066:     MOVE.L    $FE7A(A6),D0
  1441. 006A:     CMPI.L    #$56554C54,D0    ;'VULT'
  1442. 0070:     BNE.S    L1460
  1443. 0072:     MOVE.W    #$0001,$001A(A2)
  1444. 0078:     MOVE.W    #$0003,$000E(A2)
  1445. 007E:     BRA.S    L1482
  1446. 0080: L1460    CMPI.L    #$45524943,D0    ;'ERIC'
  1447. 0086:     BNE.S    L1476
  1448. 0088:     MOVE.W    #$0001,$001A(A2)
  1449. 008E:     MOVE.W    #$0004,$000E(A2)
  1450. 0094:     BRA.S    L1482
  1451. 0096: L1476    MOVE.W    #$0001,$001A(A2)
  1452. 009C:     MOVE.W    #$0002,$000E(A2)
  1453. 00A2: L1482    MOVE.W    $0900,$0010(A2)
  1454. 00A8:     CLR.W    $001C(A2)
  1455. 00AC: L148C    MOVEA.L    $FE50(A6),A2
  1456. 00B0:     UNLK    A6
  1457. 00B2:     RTS    
  1458. 00B4:     .WORD    $48E7,$3820,$246F,$14    ;[H.8 $o..]
  1459. 00BC:     .WORD    $558F,$A994,$301F,$3800    ;[U...0.8.]
  1460. 00C4:     .WORD    $3F2A,$10,$A998,$4227    ;[?*....B']
  1461. 00CC:     .WORD    $A99B,$7609,$7205,$2038    ;[..v.r. 8]
  1462. 00D4:     .WORD    $20C,$4EBA,$692,$5240    ;[..N...R@]
  1463. 00DC:     .WORD    $598F,$2F3C,$434F,$4445    ;[Y./<CODE]
  1464. 00E4:     .WORD    $3F00,$A9A0,$201F,$2000    ;[?... . .]
  1465. 00EC:     .WORD    $6712,$6024,$598F,$2F3C    ;[g.`$Y./<]
  1466. 00F4:     .WORD    $434F,$4445,$5343,$3F03    ;[CODESC?.]
  1467. 00FC:     .WORD    $A9A0,$201F,$4A80,$6608    ;[.. .J.f.]
  1468. 0104:     .WORD    $C43,1,$6E00,$FFE6    ;[.C..n...]
  1469. 010C:     .WORD    $4A43,$6F12,$4A80,$670E    ;[JCo.J.g.]
  1470. 0114:     .WORD    $2F00,$4EBA,$1A,$3F2A    ;[/.N...?*]
  1471. 011C:     .WORD    $10,$A999,$588F,$1F3C    ;[....X..<]
  1472. 0124:     .WORD    1,$A99B,$3F04,$A998    ;[....?...]
  1473. 012C:     .WORD    $4CDF,$41C,$4E75,$48E7    ;[L...NuH.]
  1474. 0134:     .WORD    $3020,$246F,$10,$1F3C    ;[0 $o...<]
  1475. 013C:     .WORD    1,$A99B,$2F0A,$A9A2    ;[..../...]
  1476. 0144:     .WORD    $558F,$A9AF,$301F,$48C0    ;[U...0.H.]
  1477. 014C:     .WORD    $3000,$6600,$5E,$558F    ;[0.f..^U.]
  1478. 0154:     .WORD    $2F0A,$A9A6,$301F,$3600    ;[/...0.6.]
  1479. 015C:     .WORD    $3003,$240,$FFF7,$2F0A    ;[0..@../.]
  1480. 0164:     .WORD    $3F00,$A9A7,$2F0A,$4EBA    ;[?.../.N.]
  1481. 016C:     .WORD    $4E8,$598F,$2F0A,$A9A5    ;[..Y./...]
  1482. 0174:     .WORD    $201F,$E280,$2200,$2038    ;[ ...". 8]
  1483. 017C:     .WORD    $20C,$4EBA,$5EA,$D092    ;[..N.....]
  1484. 0184:     .WORD    $2040,$7400,$588F,$1210    ;[ @t.X...]
  1485. 018C:     .WORD    $7000,$1001,$4680,$1080    ;[p...F...]
  1486. 0194:     .WORD    $5282,$5288,$7006,$B082    ;[R.R.p...]
  1487. 019C:     .WORD    $6E00,$FFEC,$2F0A,$A9AA    ;[n.../...]
  1488. 01A4:     .WORD    $2F0A,$A9B0,$2F0A,$3F03    ;[/.../.?.]
  1489. 01AC:     .WORD    $A9A7,$4CDF,$40C,$4E75    ;[..L...Nu]
  1490. 01B4:     .WORD    $48E7,$3C30,$246F,$1C    ;[H.<0$o..]
  1491. 01BC:     .WORD    $558F,$A994,$301F,$3800    ;[U...0.8.]
  1492. 01C4:     .WORD    $3F2A,$10,$A998,$598F    ;[?*....Y.]
  1493. 01CC:     .WORD    $2F3C,$434F,$4445,$3F3C    ;[/<CODE?<]
  1494. 01D4:     .WORD    $D,$A9A0,$201F,$2640    ;[.... .&@]
  1495. 01DC:     .WORD    $260B,$6610,$2F0A,$4EBA    ;[&.f./.N.]
  1496. 01E4:     .WORD    $FED0,$3F04,$A998,$588F    ;[..?...X.]
  1497. 01EC:     .WORD    $6000,$104,$1F3C,1    ;[`....<..]
  1498. 01F4:     .WORD    $A99B,$2F0B,$A9A2,$2F0B    ;[../.../.]
  1499. 01FC:     .WORD    $4EBA,$456,$558F,$2F0B    ;[N..VU./.]
  1500. 0204:     .WORD    $A9A6,$301F,$3A00,$3005    ;[..0.:.0.]
  1501. 020C:     .WORD    $240,$FFF7,$2F0B,$3F00    ;[.@../.?.]
  1502. 0214:     .WORD    $A9A7,$598F,$2F0B,$A9A5    ;[..Y./...]
  1503. 021C:     .WORD    $201F,$2600,$7202,$2038    ;[ .&.r. 8]
  1504. 0224:     .WORD    $20C,$4EBA,$542,$2200    ;[..N..B".]
  1505. 022C:     .WORD    $588F,$6F00,$78,$2013    ;[X.o..x .]
  1506. 0234:     .WORD    $680,0,$472,$5C80    ;[.....r\.]
  1507. 023C:     .WORD    $2040,$2203,$B288,$6306    ;[ @"...c.]
  1508. 0244:     .WORD    $10FC,1,$4210,$2013    ;[....B. .]
  1509. 024C:     .WORD    $680,0,$21DA,$5C80    ;[....!.\.]
  1510. 0254:     .WORD    $2040,$2203,$B288,$6306    ;[ @"...c.]
  1511. 025C:     .WORD    $4218,$10BC,2,$2013    ;[B..... .]
  1512. 0264:     .WORD    $680,0,$21DA,$720A    ;[....!.r.]
  1513. 026C:     .WORD    $D081,$2040,$2203,$B288    ;[.. @"...]
  1514. 0274:     .WORD    $6308,$10FC,1,$10BC    ;[c.......]
  1515. 027C:     .WORD    $C1,$2003,$E480,$2200    ;[.. ...".]
  1516. 0284:     .WORD    $2038,$20C,$4EBA,$4E0    ;[ 8..N...]
  1517. 028C:     .WORD    $D093,$2040,$4242,$1210    ;[.. @BB..]
  1518. 0294:     .WORD    $7000,$1001,$4680,$1080    ;[p...F...]
  1519. 029C:     .WORD    $5242,$5288,$C42,6    ;[RBR..B..]
  1520. 02A4:     .WORD    $6C34,$60EA,$2003,$E280    ;[l4`. ...]
  1521. 02AC:     .WORD    $2200,$2038,$20C,$4EBA    ;[". 8..N.]
  1522. 02B4:     .WORD    $4B6,$D093,$2040,$4242    ;[.... @BB]
  1523. 02BC:     .WORD    $600E,$1210,$7000,$1001    ;[`...p...]
  1524. 02C4:     .WORD    $4680,$1080,$5242,$5288    ;[F...RBR.]
  1525. 02CC:     .WORD    $3202,$48C1,$2003,$E480    ;[2.H. ...]
  1526. 02D4:     .WORD    $B280,$6D00,$FFE6,$2F0B    ;[..m.../.]
  1527. 02DC:     .WORD    $A9AA,$2F0B,$A9B0,$2F0B    ;[../.../.]
  1528. 02E4:     .WORD    $3F05,$A9A7,$3F2A,$10    ;[?...?*..]
  1529. 02EC:     .WORD    $A999,$3F04,$A998,$4CDF    ;[..?...L.]
  1530. 02F4:     .WORD    $C3C,$4E75    ;[.<Nu....]
  1531.  
  1532. ;Seg 1 = DATA ID# -4001 proc 23 of 46 (local)
  1533.  
  1534. 0000: L16D8    LINK    A6,#$FFF4
  1535. 0004:     MOVEM.L    D2-D6/A2-A4,-(A7)
  1536. 0008:     MOVEA.L    $0008(A6),A2
  1537. 000C:     MOVE.W    $0010(A2),D5
  1538. 0010:     SUBQ.L    #2,A7
  1539. 0012:     _CurResFile    
  1540. 0014:     MOVE.W    (A7)+,D0
  1541. 0016:     MOVE.W    D0,$FFFE(A6)
  1542. 001A:     MOVE.W    D5,-(A7)
  1543. 001C:     _UseResFile    
  1544. 001E:     SUBQ.L    #4,A7
  1545. 0020:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  1546. 0026:     CLR.W    -(A7)
  1547. 0028:     _GetResource    
  1548. 002A:     MOVE.L    (A7)+,D0
  1549. 002C:     MOVE.L    D0,D3
  1550. 002E:     SUBQ.L    #2,A7
  1551. 0030:     _ResError    
  1552. 0032:     MOVE.W    (A7)+,D0
  1553. 0034:     EXT.L    D0
  1554. 0036:     MOVE.W    D0,D0
  1555. 0038:     BNE    L17A2
  1556. 003C:     TST.L    D3
  1557. 003E:     BEQ    L17A2
  1558. 0042:     MOVE.L    D3,-(A7)
  1559. 0044:     JSR    locProc39
  1560. 0048:     SUBQ.L    #4,A7
  1561. 004A:     MOVE.L    D3,-(A7)
  1562. 004C:     _SizeRsrc    
  1563. 004E:     MOVE.L    (A7)+,D0
  1564. 0050:     MOVEA.L    D3,A4
  1565. 0052:     MOVEA.L    (A4),A0
  1566. 0054:     MOVE.L    (A0)+,D0
  1567. 0056:     MOVE.L    (A0)+,D0
  1568. 0058:     MOVE.L    (A0)+,D0
  1569. 005A:     MOVE.L    (A0)+,D0
  1570. 005C:     MOVEA.L    A0,A3
  1571. 005E:     MOVEA.L    A3,A0
  1572. 0060:     LEA    $FFF6(A6),A1
  1573. 0064:     MOVE.L    (A0)+,(A1)+
  1574. 0066:     MOVE.L    (A0)+,(A1)+
  1575. 0068:     CMPI.W    #$0001,$0004(A3)
  1576. 006E:     ADDQ.L    #4,A7
  1577. 0070:     BNE    L17A2
  1578. 0074:     MOVE.L    $0016(A2),-(A7)
  1579. 0078:     MOVE.L    $0012(A2),-(A7)
  1580. 007C:     PEA    $FFF6(A6)
  1581. 0080:     MOVE.W    D5,D0
  1582. 0082:     EXT.L    D0
  1583. 0084:     MOVE.L    D0,-(A7)
  1584. 0086:     JSR    locProc24
  1585. 008A:     MOVE.W    D0,D4
  1586. 008C:     LEA    $0010(A7),A7
  1587. 0090:     BLT    L17A2
  1588. 0094:     SUBQ.L    #2,A7
  1589. 0096:     MOVE.L    D3,-(A7)
  1590. 0098:     _GetResAttrs    
  1591. 009A:     MOVE.W    (A7)+,D0
  1592. 009C:     MOVE.W    D0,D6
  1593. 009E:     MOVE.W    D6,D0
  1594. 00A0:     ANDI.W    #$FFF7,D0
  1595. 00A4:     MOVE.L    D3,-(A7)
  1596. 00A6:     MOVE.W    D0,-(A7)
  1597. 00A8:     _SetResAttrs    
  1598. 00AA:     MOVE.W    D4,$0004(A3)
  1599. 00AE:     MOVE.W    #$0008,(A3)
  1600. 00B2:     MOVE.L    D3,-(A7)
  1601. 00B4:     _ChangedResource    
  1602. 00B6:     MOVE.L    D3,-(A7)
  1603. 00B8:     _WriteResource    
  1604. 00BA:     MOVE.L    D3,-(A7)
  1605. 00BC:     MOVE.W    D6,-(A7)
  1606. 00BE:     _SetResAttrs    
  1607. 00C0:     MOVE.W    D5,-(A7)
  1608. 00C2:     _UpdateResFile    
  1609. 00C4:     MOVE.W    $FFFE(A6),-(A7)
  1610. 00C8:     _UseResFile    
  1611. 00CA: L17A2    MOVEM.L    $FFD4(A6),D2-D6/A2-A4
  1612. 00D0:     UNLK    A6
  1613. 00D2:     RTS    
  1614.  
  1615. ;Seg 1 = DATA ID# -4001 proc 24 of 46 (local)
  1616.  
  1617. 0000: L17AC    LINK    A6,#$FFF4
  1618. 0004:     MOVEM.L    D2-D6/A2-A3,-(A7)
  1619. 0008:     MOVE.W    $000A(A6),D3
  1620. 000C:     MOVEA.L    $000C(A6),A2
  1621. 0010:     MOVE.L    $0010(A6),D0
  1622. 0014:     MOVE.L    D0,D6
  1623. 0016:     CLR.B    -(A7)
  1624. 0018:     _SetResLoad    
  1625. 001A:     MOVEQ    $00,D5
  1626. 001C: L17C8    SUBQ.L    #4,A7
  1627. 001E:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  1628. 0024:     MOVE.W    D5,-(A7)
  1629. 0026:     _GetResource    
  1630. 0028:     MOVE.L    (A7)+,D0
  1631. 002A:     MOVE.L    D0,D4
  1632. 002C:     BEQ.S    L17EA
  1633. 002E:     SUBQ.L    #2,A7
  1634. 0030:     MOVE.L    D4,-(A7)
  1635. 0032:     _HomeResFile    
  1636. 0034:     MOVE.W    (A7)+,D0
  1637. 0036:     MOVE.W    D0,D1
  1638. 0038:     CMP.W    D0,D3
  1639. 003A:     BNE    L17F8
  1640. 003E: L17EA    ADDQ.L    #1,D5
  1641. 0040:     TST.L    D4
  1642. 0042:     BEQ.S    L17F8
  1643. 0044:     MOVEQ    $64,D0
  1644. 0046:     CMP.L    D5,D0
  1645. 0048:     BGT    L17C8
  1646. 004C: L17F8    MOVE.B    #$01,-(A7)
  1647. 0050:     _SetResLoad    
  1648. 0052:     TST.L    D4
  1649. 0054:     BEQ.S    L1808
  1650. 0056:     MOVEQ    $FF,D0
  1651. 0058:     BRA    L188E
  1652. 005C: L1808    MOVE.L    $0014(A6),-(A7)
  1653. 0060:     JSR    locProc35
  1654. 0064:     MOVEA.L    D0,A3
  1655. 0066:     MOVE.L    A3,-(A7)
  1656. 0068:     JSR    locProc39
  1657. 006C:     CLR.B    $FFF6(A6)
  1658. 0070:     MOVEA.L    D6,A0
  1659. 0072:     ADDQ.L    #4,A0
  1660. 0074:     MOVEA.L    A0,A1
  1661. 0076:     MOVEA.L    A2,A0
  1662. 0078:     MOVE.L    (A0)+,(A1)+
  1663. 007A:     MOVE.L    (A0)+,(A1)+
  1664. 007C:     MOVE.L    $0014(A6),-(A7)
  1665. 0080:     MOVE.L    (A3),-(A7)
  1666. 0082:     MOVE.L    D6,-(A7)
  1667. 0084:     JSR    locProc41
  1668. 0088:     PEA    $FFF6(A6)
  1669. 008C:     MOVE.W    D5,D0
  1670. 008E:     EXT.L    D0
  1671. 0090:     MOVE.L    D0,-(A7)
  1672. 0092:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  1673. 0098:     MOVE.L    A3,-(A7)
  1674. 009A:     JSR    locProc44
  1675. 009E:     SUBQ.L    #2,A7
  1676. 00A0:     _ResError    
  1677. 00A2:     MOVE.W    (A7)+,D0
  1678. 00A4:     EXT.L    D0
  1679. 00A6:     MOVE.W    D0,D0
  1680. 00A8:     LEA    $0024(A7),A7
  1681. 00AC:     BEQ.S    L1874
  1682. 00AE:     PEA    $FFF6(A6)
  1683. 00B2:     MOVE.W    D5,D0
  1684. 00B4:     EXT.L    D0
  1685. 00B6:     MOVE.L    D0,-(A7)
  1686. 00B8:     MOVE.L    #$434F4445,-(A7)    ;'CODE'
  1687. 00BE:     MOVE.L    A3,-(A7)
  1688. 00C0:     JSR    locProc44
  1689. 00C4:     LEA    $0010(A7),A7
  1690. 00C8: L1874    MOVE.L    A3,-(A7)
  1691. 00CA:     _ChangedResource    
  1692. 00CC:     MOVE.L    A3,-(A7)
  1693. 00CE:     _WriteResource    
  1694. 00D0:     MOVE.L    A3,-(A7)
  1695. 00D2:     MOVE.W    #$0020,-(A7)
  1696. 00D6:     _SetResAttrs    
  1697. 00D8:     MOVE.L    A3,-(A7)
  1698. 00DA:     JSR    locProc40
  1699. 00DE:     MOVE.L    D5,D0
  1700. 00E0:     ADDQ.L    #4,A7
  1701. 00E2: L188E    MOVEM.L    $FFD8(A6),D2-D6/A2-A3
  1702. 00E8:     UNLK    A6
  1703. 00EA:     RTS    
  1704.  
  1705. ;Seg 1 = DATA ID# -4001 proc 25 of 46 (local)
  1706.  
  1707. 0000: L1898    JSR    locProc30
  1708. 0004:     LINK    A6,#$FFC0
  1709. 0008:     LEA    $FFC0(A6),A0
  1710. 000C:     MOVE.L    $0008(A6),$0012(A0)
  1711. 0012:     MOVE.W    $000E(A6),$0016(A0)
  1712. 0018:     _SetVol    
  1713. 001A:     JMP    L197A
  1714.  
  1715. ;Seg 1 = DATA ID# -4001 proc 26 of 46 (local)
  1716.  
  1717. 0000: L18B6    JSR    locProc30
  1718. 0004:     LINK    A6,#$FFC0
  1719. 0008:     LEA    $FFC0(A6),A0
  1720. 000C:     MOVE.W    $000E(A6),$0016(A0)
  1721. 0012:     MOVE.L    $0008(A6),$0012(A0)
  1722. 0018:     _FlushVol    
  1723. 001A:     JMP    L197A
  1724.  
  1725. ;Seg 1 = DATA ID# -4001 proc 27 of 46 (local)
  1726.  
  1727. 0000: L18D4    MOVE.L    $0004(A7),D0
  1728. 0004:     MOVE.L    D0,D1
  1729. 0006:     MOVEA.L    $034E,A0
  1730. 000A:     CMP.W    (A0),D1
  1731. 000C:     BCC.S    L18EE
  1732. 000E:     MOVEA.L    $14(A0,D1.W),A0
  1733. 0012:     MOVE.W    $004E(A0),D1
  1734. 0016:     MOVEQ    $00,D0
  1735. 0018:     BRA.S    L18F4
  1736. 001A: L18EE    MOVEQ    $00,D1
  1737. 001C:     MOVE.W    #$FFCD,D0
  1738. 0020: L18F4    MOVEA.L    $0008(A7),A0
  1739. 0024:     MOVE.W    D1,(A0)
  1740. 0026:     RTS    
  1741.  
  1742. ;Seg 1 = DATA ID# -4001 proc 28 of 46 (local)
  1743.  
  1744. 0000: L18FC    JSR    locProc30
  1745. 0004:     LINK    A6,#$FFB0
  1746. 0008:     LEA    $FFB0(A6),A0
  1747. 000C:     MOVE.L    $0008(A6),$0012(A0)
  1748. 0012:     MOVE.W    $000E(A6),$0016(A0)
  1749. 0018:     CLR.B    $001A(A0)
  1750. 001C:     CLR.W    $001C(A0)
  1751. 0020:     _GetFileInfo    
  1752. 0022:     MOVE.W    D0,-(A7)
  1753. 0024:     LEA    $0020(A0),A0
  1754. 0028:     MOVEA.L    $0010(A6),A1
  1755. 002C:     MOVEQ    $10,D0
  1756. 002E:     _BlockMove    
  1757. 0030:     LEA    $FFB0(A6),A0
  1758. 0034:     MOVE.W    (A7)+,D0
  1759. 0036:     JMP    L197A
  1760.  
  1761. ;Seg 1 = DATA ID# -4001 proc 29 of 46 (local)
  1762.  
  1763. 0000: L1936    JSR    locProc30
  1764. 0004:     LINK    A6,#$FFB0
  1765. 0008:     LEA    $FFB0(A6),A0
  1766. 000C:     MOVE.L    $0008(A6),$0012(A0)
  1767. 0012:     MOVE.W    $000E(A6),$0016(A0)
  1768. 0018:     CLR.B    $001A(A0)
  1769. 001C:     CLR.W    $001C(A0)
  1770. 0020:     _GetFileInfo    
  1771. 0022:     LEA    $0020(A0),A1
  1772. 0026:     MOVEA.L    $0010(A6),A0
  1773. 002A:     MOVEQ    $10,D0
  1774. 002C:     _BlockMove    
  1775. 002E:     LEA    $FFB0(A6),A0
  1776. 0032:     _SetFileInfo    
  1777. 0034:     JMP    L197A
  1778.  
  1779. ;Seg 1 = DATA ID# -4001 proc 30 of 46 (local)
  1780.  
  1781. 0000: L196E    MOVE.L    $0008(A7),-(A7)
  1782. 0004:     JSR    locProc45
  1783. 0008:     ADDQ.W    #4,A7
  1784. 000A:     RTS    
  1785. 000C: L197A    .WORD    $3F00,$2F28,$12,$4EBA    ;[?./(..N.]
  1786. 0014:     .WORD    $16A,$584F,$301F,$48C0    ;[.jXO0.H.]
  1787. 001C:     .WORD    $4E5E,$4E75    ;[N^Nu....]
  1788.  
  1789. ;Seg 1 = DATA ID# -4001 proc 31 of 46 (local)
  1790.  
  1791. 0000: L198E    MOVEA.L    $0004(A7),A0
  1792. 0004:     MOVE.L    $0008(A7),D0
  1793. 0008:     BNE.S    L199E
  1794. 000A:     MOVEQ    $01,D0
  1795. 000C:     _SPECIAL_HFS    
  1796. 000E:     BRA.S    L19A2
  1797. 0010: L199E    MOVEQ    $01,D0
  1798. 0012:     _SPECIAL_HFS    
  1799. 0014: L19A2    EXT.L    D0
  1800. 0016:     RTS    
  1801.  
  1802. ;Seg 1 = DATA ID# -4001 proc 32 of 46 (local)
  1803.  
  1804. 0000: L19A6    MOVEA.L    $0004(A7),A0
  1805. 0004:     MOVE.L    $0008(A7),D0
  1806. 0008:     BNE.S    L19B6
  1807. 000A:     MOVEQ    $08,D0
  1808. 000C:     _SPECIAL_HFS    
  1809. 000E:     BRA.S    L19BA
  1810. 0010: L19B6    MOVEQ    $08,D0
  1811. 0012:     _SPECIAL_HFS    
  1812. 0014: L19BA    EXT.L    D0
  1813. 0016:     RTS    
  1814.  
  1815. ;Seg 1 = DATA ID# -4001 proc 33 of 46 (local)
  1816.  
  1817. 0000: L19BE    MOVEA.L    $0004(A7),A0
  1818. 0004:     CLR.B    $001A(A0)
  1819. 0008:     MOVEA.L    $0004(A7),A0
  1820. 000C:     MOVE.L    $0008(A7),D0
  1821. 0010:     BNE.S    L19D6
  1822. 0012:     MOVEQ    $09,D0
  1823. 0014:     _SPECIAL_HFS    
  1824. 0016:     BRA.S    L19DA
  1825. 0018: L19D6    MOVEQ    $09,D0
  1826. 001A:     _SPECIAL_HFS    
  1827. 001C: L19DA    EXT.L    D0
  1828. 001E:     RTS    
  1829.  
  1830. ;Seg 1 = DATA ID# -4001 proc 34 of 46 (local)
  1831.  
  1832. 0000: L19DE    MOVEA.L    $0004(A7),A0
  1833. 0004:     MOVE.L    $0008(A7),D0
  1834. 0008:     BNE.S    L19EC
  1835. 000A:     _HGetVInfo    
  1836. 000C:     BRA.S    L19EE
  1837. 000E: L19EC    _HGetVInfo    
  1838. 0010: L19EE    EXT.L    D0
  1839. 0012:     RTS    
  1840. 0014: L19F2    .WORD    $7000,$31C0,$220,$2008    ;[p.1..  .]
  1841. 001C:     .WORD    $4E75    ;[Nu......]
  1842.  
  1843. ;Seg 1 = DATA ID# -4001 proc 35 of 46 (local)
  1844.  
  1845. 0000: L19FC    MOVE.L    $0004(A7),D0
  1846. 0004:     _NewHandle    
  1847. 0006:     JMP    L19F4
  1848.  
  1849. ;Seg 1 = DATA ID# -4001 proc 36 of 46 (local)
  1850.  
  1851. 0000: L1A06    MOVEA.L    $0004(A7),A0
  1852. 0004:     _GetHandleSize    
  1853. 0006:     TST.L    D0
  1854. 0008:     BPL.S    L1A16
  1855. 000A:     SUBA.W    A0,A0
  1856. 000C:     JMP    L19F4
  1857. 0010: L1A16    MOVEA.L    D0,A0
  1858. 0012:     JMP    L19F2
  1859.  
  1860. ;Seg 1 = DATA ID# -4001 proc 37 of 46 (local)
  1861.  
  1862. 0000: L1A1C    MOVE.L    $0008(A7),D0
  1863. 0004:     MOVEA.L    $0004(A7),A0
  1864. 0008:     _SetHandleSize    
  1865. 000A:     JMP    L19F4
  1866.  
  1867. ;Seg 1 = DATA ID# -4001 proc 38 of 46 (local)
  1868.  
  1869. 0000: L1A2A    MOVEA.L    $0004(A7),A0
  1870. 0004:     _RecoverHandle    
  1871. 0006:     JMP    L19F2
  1872.  
  1873. ;Seg 1 = DATA ID# -4001 proc 39 of 46 (local)
  1874.  
  1875. 0000: L1A34    MOVEA.L    $0004(A7),A0
  1876. 0004:     _HLock    
  1877. 0006:     JMP    L19F4
  1878.  
  1879. ;Seg 1 = DATA ID# -4001 proc 40 of 46 (local)
  1880.  
  1881. 0000: L1A3E    MOVEA.L    $0004(A7),A0
  1882. 0004:     _HUnLock    
  1883. 0006:     JMP    L19F4
  1884.  
  1885. ;Seg 1 = DATA ID# -4001 proc 41 of 46 (local)
  1886.  
  1887. 0000: L1A48    MOVE.L    $000C(A7),D0
  1888. 0004:     MOVEA.L    $0008(A7),A1
  1889. 0008:     MOVEA.L    $0004(A7),A0
  1890. 000C:     _BlockMove    
  1891. 000E:     JMP    L19F4
  1892.  
  1893. ;Seg 1 = DATA ID# -4001 proc 42 of 46 (local)
  1894.  
  1895. 0000: L1A5A    MOVE.L    D2,-(A7)
  1896. 0002:     MOVE.L    $0008(A7),-(A7)
  1897. 0006:     JSR    locProc45
  1898. 000A:     _CreateResFile    
  1899. 000C:     MOVE.L    $0008(A7),-(A7)
  1900. 0010:     JSR    locProc46
  1901. 0014:     ADDQ.W    #4,A7
  1902. 0016:     MOVE.L    (A7)+,D2
  1903. 0018:     RTS    
  1904.  
  1905. ;Seg 1 = DATA ID# -4001 proc 43 of 46 (local)
  1906.  
  1907. 0000: L1A74    MOVE.L    D2,-(A7)
  1908. 0002:     CLR.W    -(A7)
  1909. 0004:     MOVE.L    $000A(A7),-(A7)
  1910. 0008:     JSR    locProc45
  1911. 000C:     _OpenResFile    
  1912. 000E:     MOVE.L    $000A(A7),-(A7)
  1913. 0012:     JSR    locProc46
  1914. 0016:     ADDQ.W    #4,A7
  1915. 0018:     MOVE.W    (A7)+,D0
  1916. 001A:     EXT.L    D0
  1917. 001C:     MOVE.L    (A7)+,D2
  1918. 001E:     RTS    
  1919.  
  1920. ;Seg 1 = DATA ID# -4001 proc 44 of 46 (local)
  1921.  
  1922. 0000: L1A94    MOVE.L    D2,-(A7)
  1923. 0002:     MOVE.L    $0008(A7),-(A7)
  1924. 0006:     MOVE.L    $0010(A7),-(A7)
  1925. 000A:     MOVE.W    $001A(A7),-(A7)
  1926. 000E:     MOVE.L    $001E(A7),-(A7)
  1927. 0012:     JSR    locProc45
  1928. 0016:     _AddResource    
  1929. 0018:     MOVE.L    $0014(A7),-(A7)
  1930. 001C:     JSR    locProc46
  1931. 0020:     ADDQ.W    #4,A7
  1932. 0022:     MOVE.L    (A7)+,D2
  1933. 0024:     RTS    
  1934.  
  1935. ;Seg 1 = DATA ID# -4001 proc 45 of 46 (local)
  1936.  
  1937. 0000: L1ABA    MOVE.L    $0004(A7),D0
  1938. 0004:     BEQ.S    L1AE6
  1939. 0006:     MOVEA.L    D0,A0
  1940. 0008:     MOVEA.L    A0,A1
  1941. 000A:     MOVE.B    (A1)+,D0
  1942. 000C:     BEQ.S    L1AE6
  1943. 000E: L1AC8    MOVE.B    (A1),D1
  1944. 0010:     MOVE.B    D0,(A1)+
  1945. 0012:     MOVE.B    D1,D0
  1946. 0014:     BNE.S    L1AC8
  1947. 0016:     SUBA.L    A0,A1
  1948. 0018:     MOVE.L    A1,D0
  1949. 001A:     SUBQ.W    #1,D0
  1950. 001C:     CMPI.L    #$000000FF,D0
  1951. 0022:     BLE.S    L1AE4
  1952. 0024:     MOVE.L    #$000000FF,D0
  1953. 002A: L1AE4    MOVE.B    D0,(A0)
  1954. 002C: L1AE6    MOVE.L    $0004(A7),D0
  1955. 0030:     RTS    
  1956.  
  1957. ;Seg 1 = DATA ID# -4001 proc 46 of 46 (local)
  1958.  
  1959. 0000: L1AEC    MOVE.L    $0004(A7),D0
  1960. 0004:     BEQ.S    L1B04
  1961. 0006:     MOVEA.L    D0,A0
  1962. 0008:     MOVEQ    $00,D0
  1963. 000A:     MOVE.B    (A0),D0
  1964. 000C:     BRA.S    L1AFE
  1965. 000E: L1AFA    MOVE.B    $0001(A0),(A0)+
  1966. 0012: L1AFE    DBRA    D0,L1AFA
  1967. 0016:     CLR.B    (A0)
  1968. 0018: L1B04    MOVE.L    $0004(A7),D0
  1969. 001C:     RTS    
  1970. 001E:     .WORD    $C82,0,$FFFF,$6218    ;[......b.]
  1971. 0026:     .WORD    $3241,$4241,$4841,$82C2    ;[2ABAHA..]
  1972. 002E:     .WORD    $2001,$4841,$3009,$80C2    ;[ .HA0...]
  1973. 0036:     .WORD    $3200,$4240,$4840,$4E75    ;[2.B@H@Nu]
  1974. 003E:     .WORD    $2001,$4240,$4840,$4841    ;[ .B@H@HA]
  1975. 0046:     .WORD    $4241,$2242,$740F,$D281    ;[BA"Bt...]
  1976. 004E:     .WORD    $D180,$B3C0,$6204,$9089    ;[....b...]
  1977. 0056:     .WORD    $5241,$51CA,$FFF2,$4E75    ;[RAQ...Nu]
  1978. 005E:     .WORD    $2F02,$2401,$2200,$4A82    ;[/.$.".J.]
  1979. 0066:     .WORD    $6C02,$4482,$7000,$4A81    ;[l.D.p.J.]
  1980. 006E:     .WORD    $6C04,$4481,$4680,$2040    ;[l.D.F. @]
  1981. 0076:     .WORD    $4EBA,$FFA6,$3408,$6702    ;[N...4.g.]
  1982. 007E:     .WORD    $4480,$241F,$4E75,$4E75    ;[D.$.NuNu]
  1983.